. a 
SR te EO ORI ST ONE TONLE TE AOR SOE oN SF 


se Bae. 


EE 


NST oS EES 


HAST ONT TS Sa 


Ma each TT ES, So 


 SOOKT? 


ia A et ate ae ee 


NS 
MAINTAIN JTTI  MAIN]TI .. PAGE 75 
1 * 
a se abaeach MAINTAIN TIT TEST EXECUTIVE FOR MAG TAPE | 
3 * MAG TAPE CAN OPERATE UNDER BIC OR SENSE MODE 
Qe 
5® ae a Bw a a OR ve Wk 
6 * * x ® * - * e ow os of ® 
7 * * « ” * ® * * wo ® 
a 8 8 _*& e Ln ee Rw ww RR, * * * 
9 » noe * t * w x n * a 
10 * * * * * * * * * * * 
Seem: © ee, ee ot eM 8, SO er ee We Ok wae kW aa 
12 * 
13 * We KERR RR Re | 
: ee Oe ae cae er ee ee oe | 
15 # & " * # 
16 * * wwe # * 
eu. OER Ter) Oy St eee ne 7 7 it Steg ent Mars pe Patt fi 2 OE Shs a . 
7 18 »® * * * * * ee 
19 * * ween aa * oe 
ei «* KRANK * Tt. . a . ? ee | k REAR kaw Ok & mike 
ee * w x w % * “* * * " * n om 
255 iPaaibe ees, oe Ce os EW rccstsates tee pie Ws WS, je. en. es, ” Z 
2u w whe fe «we C] * * * * ke kh 
25 * x * * * w « O ne fw 
ee e _. 26%. 3 idle, Be oR WB, a eG Le a 
ae? hewak *& k RWANH RRM ae * ae w Ween 
26 * 
Sie arian anton: patel ON ae cons ne cream fe We eR 
30 * * * ow "8 t * * we wh 
34 | ow ] * ] x we 
33 * * * * o t tt * 
34 ® * * * * * * * * ve 
Sehcheejunaditen e _. 25 t a ne RK AAw Kw RK x. 
37 SRSSSERTREROREAURESES ESTEE ETH 
38 * * 
ees ae _. 39% _ AREAS RESERVED BY EXECUTIVE # | seas. ee 
4Q * TEPC SERERC SEE EE LEC ESS CESS SC ELS S| 
Gis ORG 0 
aes Macst aon sesso aye ee Ne inn on) so BE UT ala ci to Se ek rl a sal 2S 
43 & ORG 040 
4g * JMPM POWER DOWN ROUTINE 
befor tia tip ne hse are a _ 45%  JMP POWER UP ROUTINE - : = 
46 * NOTE: THE TEST EXECUTIVE ALSO “RESERVES ‘LOCATIONS 0400 TO 0477 
a7 * FOR A POINTER TARLE TO STANDARD ROUTINES, AND AS AN AREA 
4@ x FOR EXECUTIVE DATA, ALL TEST PROGRAMS WORKING WITH THE 
49 EXECUTIVE MUST PRESERVE THIS BLOCK, 
50 STANDARD ROUTINES WILL BE CALLED INDIRECTLY THRU 
ee eet er ak aren eee BL cae : THIS NR Ce oes a, So re et tet dag Rides 
52 * | 
 §3. TERTIUS IOI UII OUTER IONS IRA RE Rn RK RHE HERE 
tech! Pane || pen eee ee i nee eat oe anes a 
8s SET eT eT eT ee Terr Terre re Ter er Teer TTT Ter Tere errr rT TTT TTT TTTT TTT TTT TTT iT TT 
006000 A S& RO SET 0 B 
atc NAAAAL A &7 Ri Si. |) eeeeenieers Clee meneees es eat ge we ee eA Se A fo, Ne 
000002 A S@ R2 SET 2 a 
000003 & 59 «3 SET 3 8 
. _...000004@ A 60 R4 SET 4 dacitesaie, Macrae Os Ike : 8 
900005 A 61 RS SET 5 8 
0090006 A 62 Re SET 6 8 
cca ee ee eA 90007 8 era eee Pee | i eee Oem no ieee See ea oe ct nea a... 
600000 ORG i] 
000000 001000 A gs JMP ETOP CONSOLE INTERRUPT ENTRANCE 
400004 015033 A Pa ae Oe eet er 2 4ee, ahaha Faget aad, gst 
009040 66 ORG 040 
000040 002000 A 67 JMPM PWON POWER DOWN 
se DOO0GL 01S 225 Ae eebiet eae een ene Oe SN oP Tere ete eee, = 
000042 961000 A 686. “JMP PWRU POWER UP | 
000043 015250 A. . . 
Re ee Sn eee - Le ee: eee ee ee arse ee NY ae nS ee S cer ce AER ERIE. eA 
000400 79 ORG 0400 
71 * 
See areca gb ic I prcaeaee, Manat (22 «POINTER. JABLE FOR | EXEC ST! ANDARD ROUTINES AND DATA 
73 # TEST PROGRAMS USING EXECUTIVE ROUTINES WILL CALL THEM 
74 & INDIRECTLY THRU THIS TABLE 
e 715% ere an eee me Ge Set ths Sete Silene eset cae a 
76 * 
77 =* 
9900400 OL6e47 A 78 EX00 DATA § OUTA _ de NE CHAR ROUTINE 
000401 016306 A 79 Exo, DATA OUTS OUTPUT TWO CHAR ROUTINE 
000402 016313 A 80 EXx0e2 OATA OUTE QUTPUT CR & LF ROUTINE 
900403 016354 A 81 EXO3 DATA OUTD au... OUTPUT MESSAGE ROUTINE a. 
000404 016325 A @2 EX04 DATA OUTE OUTPUT OCTAL WORD ROUTINE | 
N00405 016365 A 83 EX05 DATA OUTF OUTPUT OCTAL ADDRESS ROUTINE 
909406 016404 A B84 EX06 DATA OUTG _... OUTPUT ERROR MSG ROUTINE 
OO04S07 H1edst A 8S ExX07 BATA QUTH QUTPUT CONTROL CHAR TO TTY 
000410 015660 A 86 EX10 DATA INPA INPUT ONE CHAR ROUTINE 
000411 0156074 A BY Exad  OATA  INPB INPUT AND PRINT ONE CHAR ROUTINE | 
000412 015726 A 88 ExXi2 DATA INPC | INPUT ONE CHAR EDITED ROUTINE 
000413 GiS5762 A 89 EX{s DATA INPD INPUT ONE ALPHA CHAR ROUTINE 
AMOO415 016023 A 90 Exia OATA NPE ..UINPUT TWO ALPHA CHAR ROUTINE | 
000415 016063 A 91 Exis DATA. INPF INPUT COMMA/PERIOD TERMINATOR ROUTINE 
OOOK1G® H16143 4A 92 EXi6 DATA INPG INPUT OCTAL NUMBER ROUTINE 
016452 4 93 EX17 DATA  FfOUT  _.. TIME*QUT ROUTINE © 


000620 016436 A 94 EX20 DATA TOLY _ Tine DELAY ROUTINE 


9900421 015644 4 95 EX2i DATA  S8wTt. . STANDARD SENSE SWITCH ROUTINE | | ae | 
000422 014000 A 96 EX26 DATA FLOC LOWEST CORE LOCATION USED ®8Y THE EXEC 9 
000423 014764 A 97 EX27 DATA ~ €S82C DETERMINE MEMORY SIZE | 

000424 015354 A 98 EX30 DATA  M8G3 MEMORY SIZE IS .,. MESSAGE | is 
000425 016232 A 99 EX31 DATA INPH SENSE TTY BFR RDY 
000426 016244 A 400 EX32 DATA INP] - INIT TTY CINPUT CHAR W/OQUT SENSE BFR RDY) 

_..000427 017327 A $01 EX33 PATA EDEX _.. RIGHEST LOCATION USED BY THE EXEC © 
000430 000000 A 102 V75 DATA 0 V75 CPU FLAG - i 
000431 900000 A 403 ESRI DATA 0 PSEUDO REGISTER 3 A 

__.000432 000000 A 104 EGRi OATA O ee tL mite Ae Palisa) 8 2 
000435 090000 A 105 ESR{ BATA a) 3 i, PSEUDO: REGISTER > B 
000434 000000 A {06 ER! DATA 0 7 ~ PSEUDO REGISTER 6 BR 
000435 _ 000000. A 107 E7R1 DATA 0 . . . #&« PSEUDO REGISTER 7 B 7 
000436 ; 108 BSS 1 LOCATION NOT USED 
000437 109 8S8 1 LOCATION NOT USED 

ES TRS Uae eS 1 6's. Ree te eee Aer an Ra eee sere oO EPO Oe een RENT eer eg see Re Nee ee Tee se Dales 
; {li * o% 
ile * 
Lae Ee ee TEA © ta. RN a fee a hg ee aN eg wa es Seg pe a ee et . re ees 
114 * 
115 * EXECUTIVE DATA TABLE 

a eA Ie EN aE INT IE: i + YA. eter re en ee INS TR Sie SRE Oe es Sie aa NS ee ee Ee eae RIE 
000440 000000 A 127 SFLG DATA 0 © .* LOOP ON ERROR FLAG, OMDON*’T LOOP {sloop : i 

~ 000441 000000 A 118 SMEM DATA 0 MEMORY SIZE CHIGHEST AVATL CORE) ed 

000442 000000 A 119 S$CON DATA OF OR CONSOLE MODE isTTY MODE _ Sf an ae &. Guts 

120 * 
000443 000000 A 121 EAR DATA im!) PSEUDO A REG 
444 000000 A {22 EBRY DATA gg PSEUDO B REG ee ee 
000445 000000 A $23 EXR1 DATA 0 | PSEUDO X REG | : oe 

» 000446 © 124 ETS! 888 6 TEMPORARY STORAGE 

000454 000280 A 125 EkQOO DATA 0240 ASCI] BLANK(SPACE) ss 8 
000455 000215 A {26 EKO! DATA 0215 ASCII CARRIAGE RETURN 
000456 000212 A 4127 EKO2 DATA 0212 ASCII LINE FEED 


eaeoash otbten A 4aF RANE CT ee a eg Bt alll oe ee Cgtaiabas oe det helene Bom 
000460 000100 A 129 K100 DATA = 100 | on oo re 
“000461 000200 A 130 K200 DATA 0200 — | 
_g00ue2 AS PRST B85 TEAL PUNCH ADDRESS Beh eee cta senna neh, ee npn ee 


000463 i32 LAST B88 1 LAST PUNCH ADDRESS 
000464 000000 A 433 CkgmM DATA 0 CHECKSUM 
00465 000000 A 134 EXFE DATA QO EXECUTION ADDRE Seals cass chee ae sees Ree si tee eae et he 
“000466 000224 A . 135 TAPN DATA 0224 PUNCH OFF CODE 
900467 000222 A 136 TAPE DATA 0222 PUNCH ON CODE . 
900470 016573 A_ A137 LOAD DATA LODE ADDRESS OF BINARY LOADER = = 2 oO 
000471 000000 A 138 TS04 DATA 0 DIGIT COUNTER FOR INPG 
000472 000000 A 139 PWRK DATA 0 POWER FAIL COUNTER 
000473 000001 A 440 STTY DATA | 
000474 141 OADR BSS { OBJECT MEDIA DEVICE ADDRESS _ 
| 000475 000221 A 142 XON DATA 0221 READER ON | 
000476 000223 A 143 KOFF DATA. 0223... READER OFF chee: Geshe ie 7A tones 
— OO477 177700— A oui MASK DATA (0177700 1/0 INSTRUCTION ‘MASK © | 
- ee Le , —* 
NE I 5 - ee re es ee es Ce ee ee See gune Mines, eeqeciee, 
147 * _ 
148 » | | 
Bi a a nea a ——— 149 #8 KERR RANERRER eee RR ee ne one acne ee 
014000 : 1$1 oS ORG 014000 
: =. 
153) AEGAUVANANOUR PEARS ER KEROEE 
154 » 
menses Eee uate 
2 Peas 1% x oe a : ae ae ” ) 
__ otaoo0 8 1EB ELoc eau. _#.LOWEST CORE LOCATION USED. BY THE EXEQ 00 0 lo 
014000 007400 A re £860 ROF B 
O74it A tot DATA _—SO7MAA Ree . AL ECATE tats 
014002 001001 A i62.. JOF NOV7S5 | B 
014003 O14007 A gee ; ie 
014004 006010 4 463  —ssupar. mpeg 8. pee 
014005 177777 A 7 
014006 050430 A 164 STA V75 a 
014007 001000 ee ee Sa See Pe ee ae eal tT, 
: 014010 OL4774 A 
166 * 
et PD eset eS on, ERs Ska ee aE PS RTE ROT ceca 
168 * INITewINITIALIZE MEMORY, 
169 x | XBSTART ADDRESS a4 : 
ja crs a aR alg AC a2 cee MO ON a okt ke ol ee ae sleet gta aa 
oe ie Z@INITIALIZING VALUE. ee a ee ; 4 
172 * | -? ; 
Sate te eee Oe ey ee Fat ie cle ee Go Pia Ao oe lat eet Se, 5 dea, elemental 
{ ” 
175 »* 
PAG gk AHMED LOD RTL ANDRE, PR AHEM PAIRS ates <efae d 
0149013 002000 A 177— CALL INPG GET OCTAL PARAMETER 
_ OL4O14 016143 A Betts tingst cc ee ee ee ee sophdeuatcseel 
014015 001000 A 176 SMP. ETOP, . “TERMINATION EXIT. VIA $$3 j 
014016 015033 A | 
014017 091000 A_AT9______JMP____ETOP _____ ABORT eee Ce eee 
014020 915033 A 
014021 001000 A {489 IMP OINI3. COMMA EXIT#*GET NEXT PARAMETER 


0149022 OL4O5t A 


Teme CNR CN LN ET Ae NRRL A aR me Ne Aan mA Ra See eet ene Heme me nee fem enamine 


dit orte rls bisa: oi, ‘escrate OANA GIN DGD arte iaily Saeco, Suir MOONEE Doe sd oh is . PAGE 77 


| 181 * NORMAL RETURN FROM INPGewA REG CONTAINS THIRD PARAMETER 
 OF4023 030446 4 182 3 = DX LU ETS4oU°U UU START. ADDRESS 


914024 050452 A 183 STA ETSi¢4 SAVE INITIALIZING VALUE , a 


| 2 cO1S026: 00670 8 185 nu SURE BUN eh lee 

014027 000450 A | 
014030 001010 A 186 JAZ weds * 

sl OS B00 OI a al en te at le re ESO 
014032 001000 A 187 JMP EXIT * 
014033 915203 A 


 OL4034 010447 A 188 LOA _ETSie¢1  s__—C TEST PARAMETER 0, _ ae 5 keke tlle 
| 044035 £40446 A 189 $UB ETS1 RANGE | 
014036 001004 A 490 JAN EXIT Tie . 
OE WO ST ON S20 Sy eae co ha hee eth Sate ese PERO wtyeiat aed Pete da tye aeons « . | eee 
014040 010452 A {191 INT2 LDA ETSi+4 STORE VALUE Z | | 
014041 055000 A 492 STA Or! ! 
i GON 0 OG 9G cea ee cet gen nies 
“018083 140487 A 194 SUB ETSi+) FINAL ADORESS , 
014048 001010 A 195 JAZ ETOP YES 


1 otho4s 015033 A 
014046 005144 A 196 TXR 


es NE ae Are cee ee ae Oe eR A IE, RR OL Os RE TN.. aH Ae eR Me NOS CN NR nem Ft em rm a te pea ees Se nanan 


014047 001000 A 197 JMP INT2 STORE Z AT NEXT LOCATION 
014050 014040 8 A Aa ee Ni aE Sn ee te 
_ { * : | 
| 044051 050000 A 199 INI3 STA 0,2 SAVE INPUT PARAMETER 
fa OAS OS OTe M20 a i na IS 
, 094053 001000 A 201 JMP INIT#2 GET NEXT PARAMETER 
044054 014013 A . | 
Fg ea gg ee a a a gee ys oe 
, 204 # 
H 306 #  ETRP=-TRAP TO LOCATION YX STARTING FROM LOCATION Y, }»}»©»©=©=—. 
207 IF LOCATION X IS REACHED: RESTORE LOCATIONS X & X¢1, PRINT 
205 & ssis—“tCTHE CURRENT VALUES OF REGISTERS A,B»X, AND RETURN TO THE See Tee: 
oe “209 * “EXEC SUPERVISOR | Tas : oe | 
. ato * | | 
att teh CONTENTS OF LOCATIONS X AND Xl MUST BE RESTORED BY. __._.._ 
212 * USER IF TRAP IS NOT REACHED BY THIS ROUTINE 
213% 
a Rg ane . 
Panes. poetake era eT eee Ta (8B) POINTS TO PARAMETER TAL oo ww. 
014056 000446 A 
014057 010446 A 218 LDA ETS! X 8 PREVIOUS Y 
014060 050447 A 249 STA ETSi+! 
014061 002000 A 220 CALL INPG INPUT OCTAL NUMBER 


014062 016143 A 
| 014063001000 A221 ______JMB__.. ETOP... TERMINATION. EXIT _VIA. $83 
014064 015033 A” = ee 
014065 001000 A 2220 IMP. sOETOP ABORT | = 
GE ONS OSS ie nie CS Sane eee Rates, ae 
014067 001000 A 223 JMP ETR} “COMMA EXTT+<CET SECOND PARAMETER 


014070 oO1d2i2 A 
ee ee eR ee eee eer 
014071 056000 rr 225 ae STA awane MAD AMETED 


014072 006030 A 226 LDXE  ETSi42 TEMP STORE ADDRESS 
POV S UTS 00 USO Mn 5S a a sd gts posed cee 
O14074 020446 A 227 LO8 ETS} “YX PARAMETER(TRAP LOCATION) 
014075 016000 A 228 LOA 0,2 
0.14076 055000 4 229 ______STA_Qe1____SAVE CONTENTS OF LOCATION X AT.TSQ2..0 0 00 soe 
014077 016001 A 2300 LDA eR 
014100 O5$001 A 231 STA 1d SAVE CONTENTS OF LOC, X#1 AT S03 
014101 006010 A 232. LOAL 02000... SOP CODE FOR MPM 
014102 002000 A | 
014103 056000 A 233 STA O72 STORE JMPM AT LOC X 
—O1diod od6010 «284 ___LOAf __ETRB seep ee ei ea oa 
O14%05 O14222 A oo ee 
014106 056001 A 235 = STA 142 STORE TRAP RETURN ADDRESS AT X+1 
014107 001000 A 236 = JMP_ CEGOL LOAD PSEUDO REGISTERS AND GOTO LOC Y | 
014110 014606 A 
237 * 
—O14111 050403 A 238 ETRE STA EARL PUT A CONTENTS INTO PSEUDO A REG. 2 2 
O14t12 060444 A 239 BTR. EBRY PUT 8 CONTENTS INTO PSEUDO B REG = 
(014113 070445 A 240 STX EXR1 PUT X CONTENTS INTO PSEUDO X REG 
es CSU an PLS 1 ie, ew.) eee), Seana A Sareea saRe a ee tg 
O14115 001010 A abe JAZ ETRSA 
014116 014131 A 
—~OLALLT 007140 a _243____STsR3 ___ERR1___ ——PUT_R3 CONTENTS INTO PSEUDO RE 
014120 000431 A | 
014121 OO71G0 A aaa ST)R4  EURL PUT Ra CONTENTS INTO PSEUDO Rd 


OR O00 ee Be i le a ae oe a ee 
014123 007150 A 245 ST, R5 ESR1 PUT F RS CONTENTS INTO. “PSEUDO RS 
014424 000433 A 

— 014125 007160 A A248. sone STARE —AeR]__._._____ PUT Ro CONTENTS INTO PSEUDO RE. 
O14)26 0004634 A 


an © & @ @B S&S TD 


014127 007170 A 247 ST, R7 ETRY PUT R? CONTENTS INTO PSEUDO R7 
--OALG130 000435 A Sag Sac gc Oe tees ace a a a tad ae aed ae ANI el 

014131 005001 A 248 ETR3A TZA 

014132 005511 A 249 AOFA | | 

—O1Si33 054501 A 250 = STA SOV eer 

O14134 034065 A 251 | LOX  €ETR2. 

0141735 005344 A 252 OXR a 


919336 005344 A 253 BPXR SET 1 REG _T0 TRAP LOCATION ADDRESS 


eee aint seen Aare RR AR me RAEN 8 2 RE Eo a RRR Anee a  naremee 


MY 
b 


014137 016450 
OMIA) 020451. 
014141 055000 
014142 065001 
_-OL4143 002000 
014144 016313 
014145 005041 

014146 002000 


254 LAA  - ETS8i+2 | 
256 STA 0,1 RESTORE CONTENTS OF LOC x | ” 
257 STB l,i RESTORE CONTENTS OF X#1 | i 

~~ e38 saree ca pls ap ia aa aa ame LR aS Ta Pek a Bai ee trace enter dak. i : | yee 


259 TXA. gy py ADDRS OF TRAP RETURN 
bbO cian CM SOU 8 ee eS ne 7 
014147 016365 


014150 010443 261 LDA EARL 
014151 002000 A 26 ~—————GALL__OUTE._.___PRINT CONTENTS OF PSEUDG.A. cae 
014152 016325 A | a: 
014153 010444 A 263 LDA ‘EBRE : 
014154 002000 A 264 CALL UTE. ___-PRINT CONTENTS OF PSEUDO 8. 
014155 016325 A 
| 014156 010445 A 265 LDA EXRI 
| Ste ee ee ee eae ees, eee eee 
O14t60 016325 A oS so ae | | | 
O16 010430 A 267 LOA = sW75 me a 
14162 001010 A 268 JAZ. REBT 
014163 014203 A 
014164 010431 A 269 LDA E3R1 PRINT CONTEMTS OF PSEUDO R3 
165 02 A CALL OUTE. 


ow we 
i 


caiiaambeerezamerccroaencd - D8 Se Ne ers emcee ote ene mene eS 8 Me ee mr ce ee nee mes needs one emepaennanpennang 


: 014167 Logs? A. ony of LOA > BGR | 3 PRINT. “CONTENTS OF PSEUDO RG B 
=. 014170 002000 A 272  # # CALL = OurTE = 
014171 016325 A 
014172 010433 A 273 LOA E5R1 PRINT CONTENTS OF PSEUDO R5 B 
1 Se 018 2 


4173 ee en 
H174 016325 A 


OL0G34 A 275, 
144 A276 
014177 016325 A 


Bape aerate et te 


PRINT “CONTENTS OF | PSEUDO Ré 8 


etme arteserin annie ii ait rw aromas ntnaaatnstrh tenateleteapieAt RAR aA GANGS NAN cae NEY A Crt MAU HM a em ne Bo. een me cee ena wen 


014200 010435 A 277 LOA PRINT CONTENTS OF PSEUDO R? B 
—O14e01 902000 — | aaa tt tl 
044202 016325 A_ ee 8 
044203 O14a3t AL “279 ETRSB LOA. A 


04 006120 4 280 — ADDY "#0 
014205 120260 A 
014206 002000 A 2ai CALL OUTB PRINT CONTENTS OF OVERFLOW 


A eevee enues se minha me SRR ce mR CURE TR ame ee emit Nhe iol mee tey AO nH errant een nelewmeennne 


tat 8 O15033 A 


—ot4ate 056000 A 284 ETRI STA Ore STORE PARAMETER Xx 
014213 005123 A 285 INCR 023 INC PARAMETER PTR 

- 014214 006140 A 286 SUBI ETSi+¢} MORE THAN { X PARAMETER ? 
014215 000447 A 7 


83 _* 


Aer ONO SR RCNA LERPONENEE Fhe LANs OR emt $line aRER CEH AS SETAC AeA INCLINE AENHATAhED AO te ppetiee | He CRN NOL a RTE Lee ee RE meet rm tees ae ts ar tn 


014216 001010 A 287 JAZ ETRP+4 NO CONTINUE * 
_O14217 014061 A SF eke Re ert ee CR eee ke ean oO EC OT ENON RCE ee 
Po 0 1 015203 A A 286 —JMP —soéEXIT)=——“(es:~Ci*é‘«ES =P. NALD AND GO TO ETOP 


a B OL ek mae 
SXVEEE 000000 A 290 ETR2 ENTR 0 
014223 001000 A 2goi JMP ETR3 PROCESS TRAP RETURN 


 cereadiianenaneaagetacgmuentaeaiaaaeieheanhanetnanteanenenmenmmetaeg 


eA SA ENE TC NRE RN rN Ts ARENICINRR AE SNR at RE eR sh pee eNENN =e ARE mR ERNE TRU SNUG mH ccm OEM SRNR IE emer FE one Ome nt eam 


eenetenetnns aenime dunt: vnnhanterntieatinns smear whe nnieentnenensettientnnei ance: mee A atte ear en OS eR mS RR OS tee SA att Sta Se a: NY a LE RN NR, TR ee thin nt ae hte ARNIS NP. ate ed Rade tn Stee Re Ree AMR eT re arr cerita emanate andr 


ESRCe@SEARCH MEMORY FOR SPECIFIED VALUE, 
PRINT LOCATION AND CONTENTS WHRER MATCH IS FOUND 


Soar ni te inet bee a ema geen atnenn cape Re EE A RR eR LE HI arg RE RCE REF ee gine ine Mem ce mE He 


pe 299 8 YaFINAL ADORESS - oe’ oe a 
BOO SR ARCH VALE 
301 * MSMASK WORD | 


* 
* 
Pee) a. eenente eee eee ene eae 
“208 * XK MSTART ADDRESS 
2° 
bal 


a * oy SEES SCE eS canes ee ee ee ee ee 


acer eT ae gonoga 4 300 fame uom —— _ETS1 ADDRESS FOR STORING INPUT. PARAMETERS 
| 014227 002000 A 307 CALL INPG GET OCTAL PARAMETER 
Fe oes Me) SOLS I og gaps vse css san ae ne Na A i ele hh erty “Qua adhe, at 
—  O14231 001000 A 3086 ~— — IMP €TOrF | TERMINATION EXIT VIA 883 
014232 015033 A _ ae : 
014233 001000 A 309 MP fe 5 Co) ae OO. - 191 1s SE ne eee ee meee eee ee ae , whee a . oe sag eePes 
014234 015033 A : 
014235 001000 A 310 JMP ESRS COMMA EX] Te#GET NEXT PARAMETER | 
= DING 20 010806 fe eee arte aeittor) kets stn, coda eetes,. se Sevep eee 
oe. : Bil *- “NORMAL "RETURN FROM INPGewA REG CONTAINS FOURTH PARAMETER q 
014237 050451 A B12. STA ETSi+3 SAVE MASK WwORD . 7: 
.O214240 150450 A 313 == ANA CEVG hee) UC UM ASK SEARCH VALUE = gee, 1 oh eed 
014241 050452 A 314 STA ETSi+4 MASKED SEARCH VALUE ' 
014242 005021 A 315 TBA TEST NO, OF PARAMETERS i 
~ 014243 006140 A316 _ ———-SUBI_.. ETSit3 we ot Rene a j 
014244 000451 | | 7 1 
317 JAZ wed es | 


014245 oo1010 
014246 014251 | 
014247 001000 
014250 015203 
914251 030446. 
014252 015000 
014253 150451 
. OL42I54 140452. 


\ 


316000 MPCOEXOT TT 


BLO _ESR4 LOX UETSE UU USTART ADDRESS oO ore oa genee Oe 
320. LDA 1 = es ee | 
321 ANA sé T8443 MASK IT | : 

2 8O6 Se BUR. 5  ETST ES. 8 ea | 


>> pip > ee > >| 


a 014256. 
! 014257 
014260 
014261 
014262 
014263 
014264 


5 eI TR Does ens Oita, RNY, Shela 3 lay dicts ot PAGE 


001010 A 323 JAZ ESR2 GOOD COMPARE 

ae cyte tt Me es Talent sh ach ac ape eats la en wg ae ie eed oc yates 

040446 A 324 ESRI INR ETSt START ADDRESS oi 
001400 & 325 JSS83 ETOP RETURN TO SUPERVISOR 


OT Rehab tiie eect Goes 
005041 A 326 TXA 
140447 A 327 Sue ETSi+t END ADDRESS 

O01002 A 328.0 SAPO ETOP. RETURN TO SUPERVISOR 


ne ene ew re ee Ne OR TORRE COL RE et NN oo NEE Ree tae SON 


014265 015033 A 
014266 001000 A 329 JMP ESR4 GET NEXT WORD 
_ 014267 014251 A Ba ae agate hag ate ee oe tn 
014270 002000 A 330 ESR2 CALL oUTC CR/LP | 
014271 016313 A oes 
_ 014272 010446 A 334 = CACC AD DRO OF WORD 
014273 002000 & 332 CALL OUTF PRINT MEMORY ADDRESS 
014274 016365 A 
014 6010 A 333 DAR me AR SGN 
“014276 000275 A | z 
014277 002000 A 334 CALL OUTA | 
014300 OL0247 A Ee A ae Ee ee ee a ee ee 
014301 015000 A 335 LOA —SOnd CONTENTS OF ADDRESS 
014302 002000 A 336 CALL  OUTE PRINT CONTENTS 
014303 016325 A oie ee ie eae aN tesa tyes, Geta, pete 
“044304 001000 A 337 UMP ESR CONTINUE 
14805 014257 A | 
010306 056000 A 338 ESRS STA 02 ee ~— AT ee eee ee 


014356 


014387 50uu6 4 376 sta etsy 


040360 010471 A 377° ACTS TSO4BDIGIT COUNTER FOR INPG 
- 014361 001010 A 378 = Jaz ETOP O@NO OCTAL INPUT/RETURN TQ SUPERVISOR 
014362 035033 A PE LIOR ee eee ee ONIN Te 
014363 010446 A 379 LDA ETS! 
014364 050444 A 380 STA EBRI STORE NEW VALUE IN PSEUDO B 
014365 001000 A 381 —_ MP ~EIOe RETURN TO SUPERVISOR ee 
014366 015033 A ar % a ee 
| ? ‘3a2 6 : | 
# 7 ee: : 
384 * DOISPLAY/CHANGE THE PSEUDO X REGISTER 
385 « 
EN SCTE ene mT: |_|” 3. eee AN ONO EI ot er eR clan eT ke ers 
014367 0104654 A 387 EXRG LDA EKOO | ASCII BLANK(SPACE) 
014370 002000 A 386 CALL = QUTA | 


—OLM3STL 016247 A 


014307 005122 A 339 
034310 001000 A 340 amp ESRC+2 GET NEXT PARAMETER 
wt ac ae ee Se ee ae ed Sa et er Ae 
aes - aie oe Se Se ie ee aig : | 
342 * | we : | 
___ 343 * ge oe Bs es oh ee 
344 x 
345 x DISPLAY/CHANGE THE PSEUDO A REGISTER 
46 _* eee eae Sen TEP 
014312 006010 a 34T EARG | GOATS 0240 ASCIY SPACE 
044313 000240 A | _ | 
_O143id 002000 A 348 CALL ura SoD A ht Sacra Ne eae BS ca gs sie ee ann 
O14315 016247 A : 
014316 ee aae : 349 LDA EAR LOAD PSEUDO A 
P N toe Ao 8d chee 
046320. 016325 a _ Bo te cats NE es | eS ‘ 
014321 002000 A “3st CALL INPG INPUT OCTAL AND/OR PERIOD. 
CECT CEST SLT 1 Ber ane a 7 7 NH OOS Re omens acer 
014323 001000 A 352 JMP ETOP TERMINATION EXIT VIA 883 
014324 O15033 a 
014325 001000 A 353 JMP ETOP ABORT EXIT 
024326 015033 A 
014327 001000 A 354 JMP "42 COMMA EXITewACCEPT IT 
~ NORMAL RETURN: FROM | INPG ae 
NAB Veo a20 STA. ETS} i SAVE INPUT ee : 
0143 O47 A387 ipa tang eieieiaes seis 
014333 001010 A 356 JAZ ETOP 08NO “OCTAL INPUT, RETURN TO SUPERVISOR 
014334 015033 A 
=e ORGSSS 000006 (8.359) on OAR BI ee RNR OE SE nce oe een eine waren ere 
014336 0506835 A sev a ee AwAOe MW AT HI TN PeFuno “A 
- 010337 001000 A 361 © SMP TOP 3 RETURN TO SUPERVISOR © 
So OPOSOO DUS ONS a a a es eh nee tee 
362 * 
363 * 
Pp Te Pn RS oe SLs Tene ENN MNO rene ae seater 
: Pe ; 365 * ae pee a B 
_ 366. An | ; q 
_otazay osoasa_ A “Je EpRG LDA KOO agente @uankcepacey eee 
014342 002000 A 368 CALL OUTA ) 
O14343 016247 A 
ara) meee oe ee i). 5 me eenecennee —PSEUDO B Be Bere sh Gee ee ae 
—-OLG385 002000 aA. 370) CALL. -QUTE - PRINT CONTENTS | 
014346 016325 A st a ae oe 
040347 092000 A 37 CALL eure _INPG ss INPUT OCTAL AND/JOR PERTOD 8 ee 
014350 016143 A | 
014351 001000 A 372 JMP ETOP TERMINATION EXIT VIA S83 
EY Mg 10k pa Ree eee en eee ee ae een eee ee eee ee ae eee el ‘ 
60843553 001000 A 373 IMP ETOP : ABORT EXIT. 
014354 015033 A : a . oo 
— 014355 001000 A 374 =O MPC COMMA EXIT @MACCEPT ITO 


014357 A 
375 * NORMAL RETURN FROM INPG 


R-AA Sies L  SAa Ren an ences OU ey PEE em Ree OEE 


ee a ees Seman = en eR mer AI" peNNNON es SARCOMA PRIMAL UR oan a oR cawnw «4 AN > genre (Rec a te ae ome renee ot eld cae ime ak RF Sr: NM ane URE Name mR ercramnemees eee apne aT an ne 


(AO SR RG RR, 


| QOL14372 G10445 A 3ag LDA  EXRI 7 LOAD PSEUDO Xx | 

1 014373 002000 A 390) CALL OUTE PRINT CONTENTS 
014374 016325 a 
914375 002000 A 394 CALL INPG INPUT OCTAL AND/OR PERTOD 
PAS OG ONO 1G 9 By. 5 Ou foc cose flee aa Set eee ee ie. Se eee ceca 
014377 001000 A 392 JMP ETOP TERMINATION EXIT VIA S83 
014400 015033 A 
pe OPES OOL000 oe 8 sete tO i EOP a oe oe a AMOR i se esi ee 
014402 015033 A 
014403 001000 A 394 JMP *42 COMA EXIT@#ACCEPT IT 

poe @ TOR0G OT G805.. GO a a ar a 
395 * NORMAL RETURN FROM INPG : 


OL4405 050446 A 396 “STA —s ETS 
_. 014606 910471 4 397 0 LDA 80g 
014407 001010 398 JAZ ETOP 


A 
014410 015033 A 

014411 010446 A399 

A STA 

A IMP 


 014d12 050445 
- 014413 003000 
014414 015033 


EXRi 
€TOP 


“402 *- “DISPLAY/CHANGE THE PSEUDO R3 REGISTER 
014415 010454 A 4O3 E3RG LDA EK00 ASCII SPACE 
; 014416 002000 A 40d oo EARL OWT A pan ee ee pete, eae 
© 014017 16247 A : ae | 
024420 010431 A 405 LDA E3R1 Loap PSEUDO R3 
| 024421 002000 A 406 CALL OUTE = PRINT CONTENTS sss 
. 014422 016325 A 
i pee 002000 A 407 CALL INPG INPUT OCTAL AND/OR PERTOD 
| 01424 o1e1d3 a a ee a ce et ee: 
“OFG825 001000 A- 408 as MP ETOP TERMINATION EXIT VIA $33 
A. 024426 015033 A 3 
} _o14u27 001000 A409 MPP RY Ext Sie eee ahs eee 
014430 015033 A 
| «044834 001000 A 4to JMP a2 COMMA EXITewACCEPT IT 
Were comics AL eee reat eee Re eee ee ee ee he ee ee es ee 
| Oty NORMAL RETURN FROM INPG : | | 
014433 0504406. A 412 STA  ETSt SAVE INPUT 


: _914u34 010471 A 413 LDA TOG 


014435 001010 A aia JAZ ETOP 
014436 015033 : 

| 014437 01 15_ LDA ETSi 
094600 0504631- ‘ ate STA E3Ri 
Of4441 001000 A 4}7 JMP ETOP 


—O1G0G2 015033 A ___ 


aie « 
014443 010454 A 419 EGRG LDA EK00 
044444 002000 A 420 CALL QUTA 
014445 016247 A 
014446 010432 A 42k LOA EUR 
—0iddu7 002000 4 422 CALL UTE 
014080 o16385 A. et 
7 | 014051 < “423 “CALL | INPG | 
014453 001000 a24 JMP ETOP 
014454 015033 A 
| 0019008 425 ___JMP___._ETUP_.. dea ie 
“O$4456 O15033 A | 
014457 001000 A 426 IMP wa 
OOOO OG Ei Beret ie ee 
427 * NORMAL RETURN FROM INPG 
014464 050446 A 428 STA ETS1 


ee _ISQUSDIGIT COUNTER FOR INPG 
| : —«ORNO OCTAL INPUT/RETURN TO SUPERVISOR 


014465010446 A 431 pA etsy 


O14 A was 
. 014063 OO10L0 A 430. waz ETOP 
' 0144664 O15033 A 


STORE NEW VALUE IN PSEUDO R30 


*  ——s«DSPLAY/CHANGE THE PSEUDO R4 REGISTER 


«SAVE INPUT 
_TSO4SDIGIT COUNTER FOR_INPG 
OBND OCTAL INPUT,RETURN TO SUPERVISOR 


Serena “1 | Waeeemote| - & 5 Seeemses aan sien Meare 


STORE NEW VALUE IN PSEUDO x — 
RETURN TO SUPERVISOR 


T8O48DIGIT COUNTER FOR INPG | 


ONO OCTAL INPUT,RETURN TO SUPERVISOR 


RETURN TQ SUPERVISOR 


ASCIT SPACE 


LOAD PSEUDO RG 


a ea ee 


INPUT. ocTaL AND/OR PERIOD 


“TERMINATION EXIT VIA 883. 
|: 2 06 ee eee eee 


COMMA “EXT T#*ACCEPT a 


ch Senet tte mnt ae sate: Hehe mente settee Am tie ae femte wna ten tm eee 


SAVE INPUT 
180 


STORE NEW VALUE IN PSEUDO RG 


SN + ENEMA Nee A aR RRR RENEE: MAAC a RIE Et SRE: eNO NepeeneNrn Ae onsite ctatpenes tes mee Le wtn coy aes 8 8 me neta 


INT c6 Le ts ee Sa 


INPUT. “OCTAL AND/OR PERIOD 


014466 050432 A dase STA EGR 

014467 001000 A 433 JMP ETOP RETURN TO SUPERVISOR 

—04 S470 015053 ees er nee ne 

— 43a *& “DISPLAY/CHANGE THE P PSEUDO R§ REGISTER | 

014471 010454 A 435 ESRG LDA EKO0 ASCII ‘SPACE . 
014672 002000 A 436 — CALL OUTA 

014473 016247 A 

014474 019433 A 437 LDA ES5R4 LOAD PSEUDO R5 
—OL4475 002 anne Al, PR 

0144676 016325 A Ph Sey ee ee | 

014477 002000 A 439 CALL INPG 
es 014500 016143 A eileach estas Boh. aa ee ae Se acai Pe eet see 

014501 091000 A 4&0 JMP ETOP 


014502 015033 A 
—014503 001000 A 441 
014504 015033 A | 


PET OP 


—1sS16 0 VE Y Sel enero 


Te 
O14517 010454 A 451 BORG LDA EK00 
014520 002000 A 482 CALL UTA 


——--— ABORT Exdt _____ Sc ae 8 


 DISPLAY/CHANGE THE PSEUDO Ro REGISTER = 


TERMINATION E EXIT VIA 883 


- 014505 001000 A ade SMP “ene COMMA EXITseACCEPT IT 
SONS OG OLS OT Bes oak A a ek he hte ae a le ea et ty hE ue ae 
G43 * NORMAL RETURN FROM INPG 
014507 OS04ue & aad TA ETS) SAVE INPUT 
014510 010471 | \_TS04  TSO4RDIGIT COUNTER FOR INPG = 
~ OL4511 001010 A re “iar erop OWN OC TAL INPUT, RETURN TO SUPERVISOR 
010512 015033 A 
014513 010446 4 447 spa ety CE ENS ee eres eee ee 
014514 050433 A 448 STA ESR1 STORE NEW VALUE IN PSEUDO RS 
014515 001000 a 44g IMP ETOP RETURN TO SUPERVISOR 


ASCII SPACE 


ete are ie RNY cane eet ee alecetG tN ee ata ct a 


A Re AR EEN OR} 4s RN cams OF REE tet cane A eee 


eoep BETO FB ®@ 2 BF wo ABD BOePD fF DW ® vs wT Bas 


_ 2 soe oeaosc wp & Sb Bw BG Bos 


2.08 elegant” same pe 


oonnear an" eremmeannnee wonmencmencemnpeaety 
anaes 2 reenenarnenewranannt 
nonce ares re amare. ns 


ne 


ae 


pee ee MMENTADNOEED ll MAINE PAGE 


014521 016247 A | ak: : : 
__O14S22 010434 A 455 LDA EoORi LOAD PSEUDO Ro |. 


C 
014523 002000 4 usa CALL QUTE PRINT CONTENTS Bo 
014524 016325 A 

ee ese GT eCua RT eee 8 
014527 001000 A 456 JMP ETOP TERMINATION EXIT VIA $83 3) 

see OO 0 US aie os ae ele eeu nett A aa hel paige ETERS 
014531 001000 A 4s7 JMP ETOP ABORT EXIT. Ne) 
014532 015033 A 
— 014533 001000 4 Sa ac Sipceceaeh 8. 
014534 014535 A 

459 * NORMAL RETURN FROM INPG | B 

014535 0504466 A 460  .  # SYA ET$1...  ..§§6=6©SAVE INPUT : B 
014536 010471 A det LDA TS04 TSOMSDIGIT COUNTER FOR INPG 8 
014537 01010 A 462 JAZ ETOP OS8NO OCTAL INPUT,RETURN TO SURED y Eser Bo. 

gD «eat ede ene ans arse RRM Ia SAE EE OS Pe de ered tO rae I TIES, RT TT ash Sete 
014541 010446 A 463 LDA ETS! = ) 

«014542 050434 A 4od STA E6Ri STORE NEW VALUE IN PSEUDO R6 B 

ST raean (eee seat AMP. EYOP ss“ RETURN TO SUPERVISOR 8 
014 1 | 

466 * DISPLAY/CHANGE THE PSEUDO R7 REGISTER : 
454 0 ees mre - oem 

— 014506 002000 A 4668 CALL. —QUTA ies 8 

— 014547 016247 A | ? 7 aa, 

014550 010435 A 469  ==LDA  E7RY 8§=§=§©6=6)6h)h LQAD PSEUDO R77 FF, 8 
014551 002000 A 470 CALL OUTE PRINT CONTENTS B 
014552 016325 A 

oe ON rere a no NE NEU OT Aly AND OR PER TOD nn Bm 

~~ 044554 016143 A | a 

- 014555 001000 A 472 IMP ETOP TERMINATION EXIT VIA 883 a.) 

soma) (C4) 12d Gs BF, eee ITE ND ce ON eee ees OSC ee eR eNO E CCN) ee ern aE Ce oe 
014557 001000 A 473 JMP ETOP ABORT EXIT B 
014560 015033 A : 

TO tHEAD Crate RO EE ACRE ET eee en ee - Sp enn eee eee eee 

~~ 086862 014563 A. ee 

a i 47S « NORMAL RETURN FROM INPG , a) 3 

0 | Jo A 476 SYA EYSi SAVE INPUT Ieee ta gay = coh Geena ees 
014564 010471 A a7 LDA TS04 TSOURDIGIT COUNTER FOR INPG ) 
014565 001010 A 476 JAZ ETOP OSNO OCTAL INPUT,RETURN TO SUPERVISOR B 

A 
024567 010006 A 479.  ~=~— LOA.~—~*«CSET SL 
014570 050435 A 480 ae ER’ STORE NEW VALUE IN PSEUDO R7 B 
_ 044574 001000_ foe... 2 Gee eee ___ETOP..s.s—«w“s‘as RETURN TO SUPERVISOR =F BL 
014572 015033 A 
482 * 
483 * 
484 * 
4as « 
Enna cenenremerer S| |- at. eee wat, eae ae 
coe ‘46T *. EGOT*=L0AD PSEUDO REGISTERS INTO “By BeX "AND TRANSFER TO 
ee 488 * LOCATION SPECIFIED BY USER, 
aoe THE PseunD “REGISTERS CAN BE PRESET WITH THE A, BpX det Penrice pe Se cereal 
490 * UTILITY FUNCTIONS, 
491 » 
Seer eer _-—- AGé SF a Ae ee a ee ee, | Ace 

VENDIO VVEUUU A S¥o Gaur me ate e coef Ss ee . 

044574 16183 A a : a ee | 
_.014575 001000 A 49g PC ETOP = CTERMINATION EXIT VIA SSS 
014576 015033 A 
014577 001000 A 495 JMP ETOP ABORT 

ee ee a et ea Been cea ROMs Dacre eee 

2 014608 001000 A 496 a UMP 42 — COMMA EXITseACCEPT 11 IT - 


» 014602 014603 A” © 
_ Te NORMAL RETURN ‘FROMINPG  —( 


014603 050447 A 498 STA ETSi+1 
014604 002000 A 499 CALL ourc DO A CR + LF 
gS 0G NR ae ee ee ee ie ee! 
014606 010443 A 500 EGOL LDA. EARL LOAD PSEUDO A REG, 
014607 020444 A 50% L068 EBRI LOAD PSEUDO 8 REG, 
_..O14610 030430 A §02 {Ox  vV7S = =V?7S SYSTEM? 8 
014611 001040 A 503 JXZ RESOF NO B 
014612 014625 A 
 qiikia totaal a ee eee RB, Be 
«020614 000431 A ae | 
0146615 007040 A 505. Lo, Rd EuRt Ru, 7 8 
014616 000432 A Sas Bet en ele ne eh a eee eke 
014617 007050 A 506 “LD,RS ESRI RS, 8 
014620 000433 A 
014621 007060 4 507 ee ee Saseee 
014622 000434 A t - 
014623 007070 A 508 = LO-RT EPRI AND R?7 : R 
.O14624 000435 A pee En toh Pct ee ea ate Speed eas eee, Oe oes, ta ae | 
014625 007400 A 509 RESOF ROF A 
014626 034006 A S10 LOX EOVY : 
__.OL14627 001040 A a) 2 eee 482 —2t3.. —-————-SEL¢AE SET OVERFLOW 
024630 014632 A : 
014631 OO7401 A Sie BOF. mae , , 
014632 930445 A 513 = OK EXRL Bate te Loa Paeupo x REG. dans ected eats ara ites se bats aah ge sk eB bheost 2 tila tt once Pens 
014633 001000 A 544 IMP x ETSi+41 | 
014634 100447 A | | 
914635 000000 A 515 EOVi DATA Oo PSEDUO OVERFLOW =i tts 
: ate x DUMP CORE MEMORY TO TTY PRINTER gee 
517 ® 


914636 002000 A 518° DUM CALL _INFG — INPUT. START LOCATION, (OCTAL) 


014637 016143 A 


014640 001000 4 519. sss JMP ETOP. = ss TERMINATION EXIT VIA 883 _ 


0146d1 015033 A | 
014642 001000 A S20 JMP ETOP ABORT 
014643 015033 A Rar Rents ae 
014644 001000 A Sal JMP wea “COMMA EXT T#eACCEPT It 
014645 014646 A oi 7 
BRR NORMAL RETURN FROM INPG 
014646 050446 A S23 STA ETS1 
014647 002000 A 524 CALL = OUT OUTPUT CR & LF 
0146050 016313 8 ee eye 
014651 010446 A 525 “toa TSE | ee | 
014652 005014 A 526 oe TAY : Pe ae os 
014053 .002000 & 527 EDUL CALL OUTF sss (OUTPUT MEMORY ADDRESS 
014654 016365 A : 
014655 910454 4 S28 LDA EK00 ASCII BLANK(SPACE) 
014656 002000 8 529 CALL UTA MEAN eE ee Ree Te mr 
"014657 016247 A © 
914660 015000 & 530 EDu2 LDA 
014661 002000 A S31 __pite ___pa1nr Locarian conrgnrs 
014662 016325 A 
014663 001400 A 532 J883 ETOP 


—PLMeed 015053 A 


014665 005145 A 533. [NCR 005 INCREMENT X AND PUT INTO ABX 

014666 005002 A 534 eS | 

014667 004843 A 535 ASR BO LINE LENGTH IS @ LocaTIONS = 
014670 001020 A 536 ~JBz EDUG NEXT LINE 
014671 014674 A 
| 8 SBT MP BDU NEAT WORD sar ems 
ars 1 A Ee 

one «$38 | 

014074 002000 A 539 EDU CALL gure ~———scurpucr pip =i C—O 
014675 016313 A 
014676 002000 A sud CALL —sCINPI 

~ 044700 006140 rs “Sat “suet OMT : 


014704 000377 A ; a: , | : | 
: 2.001010 A Sua gaz grop CE A EEE ER TR TAR ee Re RE SS ME Tee 


014703 015033 A 
034704 9005041 A 543 TXA 
Pay LUTICTY (Ge ea ee ehes ert eae eh a Se 
. PATOR. O1M6S3 A ee | : . 
Suse ee 
ae ee, ee ee Pe eee : eee 
547 x 
S46 
Sug « 
ae * PRINT/CHANGE CONTENTS OF MEMORY LOCATION SPECIFIED BY USER 
551 * 
fete eee _.§52 8 ae a 
ORM 7 ougpoa i 553 ECNG CALL —INPG | INPUT OCTAL MEMORY: ‘ADDRESS 
oe 0 OL644 
OL4711 001000 A S54 gp gypp TERMINATION EXIT VIA $83. 
~ 044712 015033 aA 
014713 001000 A §55 JMP ETOP ABORT 
ee ists a oe ee ses tec teeta AB tats teat a ee oe ae 
-OL4715 001000: A. he MP mee ‘COMMA, EXIT==ACCEPT aw 
014716 O14717 A 
_ §87. * NORMAL RETURN, FROM. -INPG Ae lle eas ct eo ole ee Se or ee cee at leas 
14717 005014. ‘A 558 
014720 006010 A §59 ECN3 ta og? EQUAL SIGN 


0 PSO Yo) i eee ee eee ee eee 


Perea snemae Sere coreerennnesiameeataersite eee: 


014722 002000 A 560 CALL OUTA. 
014723 o16ead7 A ss ae as _ 7 
_ 014724 015000. A Seika OG A ee Peis as, Oat aye dae es gee ie a nan, foe De tas 
014725 002000 A S62 CALL OUTE OUTPUT OCTAL WORD 
014726 016325 A 
O14730 O16143 A | | 
014731 001000 A 564 game ETOP TERMINATION EXIT VIA 883 
_O14732 015033. A as sat ees eter ee Ae 


ABORT 
$66 MP CECN2 COMMA EXT TewPRINT NEXT LOCATION. & CONTENTS 


014733 001000 A “JMP SS CETOP 
014734 015033 A 
735 


014736 014747 ; 


Laem men we nee meme 


567 * NORMAL RETURN FROM INPG WITH PERIOD 
014737050446 A 568 STA ETS. _ SAVE INPUT | : £8 Saree «hey im enetates 

014740 010471 A §69 LDA TS04 TSO4BDIGIT COUNTER FOR INPG 

014741 001010 A §70 JAZ wel 

eT OO ca ah Nh ei ee a ll i Tw ey eh Ee ale a Minne. -peae ata, Uetel Ne weds 
j ~ OL4743 010446 A 87h “LDA JETS! ~—6<GET LAST INPUT 
L:. 014744 055000 A 5§72 STA Onl : 
i OLS785 001000 A B78 1. IMP BI OR es, Cee 
| 094746 015033 A 
i S74 * 
| EOC EME CT CL Gal ree Ee ___ SAVE INPUT ee, neueee atte) teeters ee ahd 
YT — 614750 010471 A 576 LDA —T80a- . TSORMDIGTT “COUNTER FOR INPG) 
| OL4751 001010 A S77 JA2 wed 
_.O48752 010755 A Se UE aS A eee aR oe oR Ne Mesadieh ac 4 ep <A & ae cole. 
014753 010446 A 578 LDA ETS! GET LAST INPUT 
1 014754 055000 A §79 STA QO, 1 STORE NEW VALUE IN LOCATION 
i  Q14755 _ Oe i OO ae ae PRR OUT ORR Prot, St eee ry rng ee ae aetna oe ete 
014756 016313 A ie ee oO } 
[ 014757 005145 A §8} INCR 045 INCREMENT x AND PUT INTO A AND X 
{ 014760 002000 4 $82 CALL  QUTF PRINT NEXT MEMORY ADDRESS | 
: | 


MAINTAIN TIT 


Pui) a. © 9 ena 


OL4764 016365 A | 
_ O147e2 001000 A. $83. MP EEN3 6 CC PRINT CONTENTS 
014763 014720 A 
584 x 
—-014764..909000. A... 585. £87C_ ENTR 0. DETERMINE MEMORY SIZE _ 
014765 002000 A CALLE SZA * 
014766 015417 A 
.. OL4767 080441 A S587 STA CUSMEM oO tet 9 te at We Ssh 
014770 002000 A 586 CALL SCE SZB a 
O14771 015453 A 
914772 001000 4 $89 = JMP  CESZC)*  waewee EXT 
014773 114764 A : : 
014774 OOS101 A $90 EBGL INCR ~O4 TTY MODE 
__O14775 050442 A S91 STA CON. SCON Ot 
014776 002000 A $92 CALL ~—ESzC - STTY = O1,UNLESS SET 
014777 O14764 A 
cA SOO CS bhi SO Nt a 
015001 000000 A 594 — HLT * OPERATOR 
015002 006030 A 595 Lox! STTY 
015003 000473 A bi Ao SENN ol De tN oat a! _ ees et te, 
015004 055000 A 596 STA Ort 
015005 002000 4 597 EBG2 CALL  OUTH,0204 PRINT ENABLE 
015006 016431 A see etch he, ees cea ee 
015007 coOz@OL A 2 re oe 
015010 002000 4 598 CALL oUTE OUTPUT CRLF 
5011 01634 en BR garnet eh eet te es ps ee 
015012 010430 A $99 LDA V75 
015013 001010 A 600 JAZ DOMS61 
“Q15015 006030 A 60h LOXT  M8Ge THIS 18 THE V75 TEST EXECUTIVE 
015016 015375 A a: . ‘ 7 
Q A _______._ QUT PUT MESSAGE Seah 
015020 016354 A } 
015021 001000 A 603 JMP “DOMSG3 GO OUTPUT MSG3 
“095023 006030 re “604 DOMSG1 LOXT = MSGi THIS I8 THE V70/620 TEST EXECUTIVE 


045024 area A 
O150e 02000 A 6058 CALL our ____ourpur Message enters tice 
015026 016354 A 


015027 006030 A 606 DOMSG3 LDXI MSG3 MEMORY SIZE IS ==K 
—018031— 502000 A (O07 GALL OUTD OUTPUT MESSAGE er eee 
015032 016354 oo 7 | 7 

iene nenrnertnmenr bed sa Sarat och ee es ani Seas oes ee cece Saal a glen alc alte tac abies * “Dy ah dae ater temntne care 
609 
610 ® 
611 * TEST EXECUTIVE SUPERVISOR 
612% 
015033 006010 A 613 ETOP LDAT 0207 TTY BELL 
SUT CET at eT ee eee 
ES OO A 644 CALL “UTA, OUTPUT. ? 


GALL ouvHeoz0n PRINT ENABLE. = st—<‘—s—ssSS 


a O00 A 
015040 016431 A 
015041 000201 A 

A 


AMANDA AABAAA A Bom Sf oa ! TNPT TNT MY soe es es i, eS as oe 
“018043 OlexuG ACS oo apes tae | 
(o1Soad 002000 A OL? “CALL —6ourC | 

__o4$0us ent ns a Segoe ORE re a OR ie NTR ES NE ET RET 4 
015046 002000 A 18 “CALL INPB INPUT ONE CHARACTER 


O15047 O15674 A 
— 019050 001000 A A649 JMP_ ____F Top —__. — A 


015051 015033 a- 
015052 054011 A 620 ‘STA ETOU4S SAVE INPUT 
INE FEED € 


Cte tg nes eee 


015054 000212 A 
015055 001010 A 622 JAZ ETOP YES 
015057 006140 A 623° °C. UBT ve §. CARRIAGE RETURN( 0215): 


015060 000003 A 


015061 001010 & 624 ss Jaz? OP —“‘ EU 


Se pence mete inrermrmins a 


015062 015033 a 
015063 006010 A 625 ETO4 LDAI 0 GET ORIGINAL INPUT 
eS) C00 000 Ace spend RE a oe EN a se 
015065 006140 A 626. “SUBI* ae r 
015066 900301 A | | | 
015067 001004 A 627 JAN EXIT) = CNVALID INPUT Peer 
015070 015203 A 
015071 006140 A 628 SUBI 032 Z CHAR 
—015072 000032 A ____ a Nar ac te Se are ae 8 a cee 
015073 001002 A 629 JAP EXTY INVALID INPUT 
015074 015203 A - ee he : | 
045075 006120 4. 630 __ADOI  (ETBL4032)* INDIRECT ADDRESS POINTER FOR UTILITY TABLE 9 ww 
015076 115152 4 : | 
015077 054017 A 631 STA PETBL+2 B | 
015100 030430 a O38 ONT Bn Be 
015101 001040 A 633 “dX2 PETBL. oe eee | B 
015102 015115 A 7 
_O15103 907043 A 634 —»sLDEGRE OO Ssts~*~<Ci‘“=;«~«sS STEM B _ 
015104 yo0000 a 
015105 007444 A 635 LOI,R4 0 CLEAR R3 8 
sO FOG 00 00 Bec Ee ceca Sit dace tt in ery saan _ 
015107 007445 A 636 LOI,;RS 0 Ra B 
015110 000000 A | 
_O1S5i11 007446 A 637 DT»RO OR 4 


Ane iM mee a rR em ee te seer 


015112 000000 A ; - 

015113007447 4 638 0  LDIAR?. OO Re AND ORT aa 

015114 000000 A 

015115 005007 A 639 PETAL ZERO 7 CLEAR REGISTERS A,8,% ANYWAY 
_ 015116 901000 A 640) MPO . | 

015117 015116 A 

(15120 014312 4 641 ETBL DATA — EARG ‘A PRINT/CHANGE PSEUDO A REG 
015121 0143541 A 642 = DATA EBRG dB OPRINT/CHANGE PSEUDO B REG | 

015122 014707 A 643 DATA ECNG C PRINT/CHANGE MEMORY LOCATION 

015123 014636 A 644 DATA  EDUM D DUMP CORE TO TTY PRINTER 

UUS124 0007S ch 50 Qa DATA BOR ee WRITE ENG OE REE rae ceri ts 

015125 016724 A 646 DATA FIL “F FILE POSITION 

015126 014573 A 647. DATA. EGOT @ TRANSFER TO SPECIFIED LOCATION 
015127 015203 A 648 —-sDATA. EXIT. = NOT USED any 

015130 014011 A 649 DATA INIT 1 INITIALIZE CORE 

015131 015203 A 650 DATA = EXIT J NOT USED 


| 015132015203 A 65) DATA EXIT kK NOT USED ___ 


015133 016573 A 682 DATA ~—- ELD L LOAD OBJECT TAPE AND TRANSFER TO PROGRAM 
} 15134 015203 A 653 ‘DATA EXIT M NOT USED 
0151350152034 654 00 DATA EMIT OU UN NOT USED 
015136 015203 A 655 DATA EXIT O NOT USED 
015137 016463 A 656 DATA = EPUN P CREATE OBJECT 
SPC TTeRY CTC ———DATA___EX1T _____ aes ey, + ial 
018141 015152 A 658 DATA V7SREG : eee 8 
o1si42 014225 A 659 DATA ESRC $ SEARCH MEMORY 


015143 014055 A 660 === DATA 
015144 015203 A 661 DATA 
015145 015203 A 662 DATA 

| aA TEAL TLE GTC SRST UT See Te 
|  -OUS247 014567 A 664 DATA : 
015150 015203 A 665 DATA: 
15151 015203 A 666 DATA EXIT 


__.._Y__TRAP 
U NOT USED 
V NOT USED 
Ww oN | es 
xX PRINT/CHANGE PSEUDO X REG 
¥ fel USED 


667 * 
26 SR EG A Se ee eee ena eae ee Fate OST ae Pe Ne MEETS ERERRTRY: - Saenger 
“O1S$S3 001010 A 670 aE EXIT “NO V7S HERE B 
015154 015203 A 
_ 018 5002000 A 671 CALL. INR ___.___ GRAB THE REGISTER NUMBER BL 
015156 015674 A 
015157 001000 A 672 JMP EXIT B 
eee 006150 A OTS NAT 07 MAKE SURE ITS 0 THRU 7 ’ 
948162 000007 A | ; 
015363 006120 A 674 ADI pol __REGTBL Cae a ee ee ae ROE: «Ra 
015164 015172 A 
015165 006110 A 675 ORAL 0100000 
015166 100000 A 
“O15167 054001 A 676 STA REGIMP+1 
015170 001000 A 677 REGJIMP JMP* = REGTAL 
~ AABLT 1451724 are fe Eas ee 7 
~ EARG- 


2 ERR A. 678. REGTBL , DATA 


© 679 DATA EBRG 
Bee ; : A cS yf _ EXRG i 7 eo ee 
015175 014415 A 6Bf DATA E3RG 
015176 014443 A 682 DATA —- EURG 
POM7L A §83..___QATA._ES8G dare once FE ese ae she Sas enh apg pata BZ 
“018200 014517 A 684 “DATA. ‘BORG 
045201 014545 «4 685 “DATA ERG 


OTDINoTsow cD wD DB ww: 


_a)380b tise a Ske Bate Bn 


ne ee eet A RN ee «NRT tte CALTON AIRE Oe Oe ON ni en RR eR Hm oe ee RE 


ey wi 


13204 002000 4-989 -EAIT- GALL QuTG ____PRINT INVALID & CR/LE 
015204 016404 A | sc se 


». 045205 001000 A- 690-0 8 INR ETOP. RETURN TO TOP OF SUPERVISOR 
015206 015033 a LAS IS URS, e ed ee TS Brrceins ae ela te Ses a eee aca heen a0, 
015207 005042 A 691 LOAW 1X6 SAVE) x 
015210 006030 A 692 LOX] MSG2 MESSAGE? CHECKSUM ERROR 
o1Sei2 002000. Ae 693 | CALL . = QUTO PRINT “MESSAGE 
015213 016354 AD he : 
015214 005021 A 69g TBA Ba UO oh a 
015215 002000 A 695 CALL OUTE 
015216 016325 A 
ee pra er a —___ EXEC SUPERVISOR ooo 
015220 015033 A. on ae Lhe ee PE ga hae 
697 ® 
PASENIEP asa NEEL et Ra ee es a ETS eS oe Tae ee Ss Bass petal = 
699 x 
700 
* 
Da Pee 702% TYPICAL | POWER. UP/DOWN SUBROUTINE = 
703 * ; POWER DOWN INTERRUPT ADDRESS 04) 
STE RE eRe A! 2, ER ea ____ POWER UP_INTERRUPT ADDRESS 042 # #838&= =. 
705 «* 
706 POWER DOWN PROCESSOR 


te sD aésiar ey oe haw Be Sewesi et i a it alge se 
015221 000000 A 708 PWDON. ENTR O° : 
015222 054060 A 709. STAs SAVA SAVE rs 8 “AND” x REGISTERS” 
ONC CS OOS 060M TO ea A a a ee ly chet awe Gk 
015224 074060 A 711 STX SAVX 
015225 910430 A The LDA V75 7 8 
Se ETT TAL TUS Cm Wane Menem | mee |||.) RRS see ne Reenter AS A a Oe Bo 
015227 015242 A ooe es 
015230 vO7130 A 714 ST/R3 SAVR3 AND THE RB, 8 
SW UES OLS S06 Wy 28 i Fe Pt ate pala to bona Saha) te tng On huge al ake 7 


ciate iden aeedees oa aten MAENTAEN 20D oe apres, ocMBINET 2c cece kt PAGE 85 


015232 007140 
. 045233 915307 A. 
015234 007150 
015235 015319 
915236 007160 A 


715 | ST,R& SAVRG Ru, 


ak CT ae ae eae 
Se oo Sy Aemmenemcee: A 1 - eee—1L d| - Se en. «See eR eR Ce re yeaa 
015237 015311 


A 
A 
A 
A 
A 
A 
015240 007170 A 718 ST»R7F SAVRT AND R7 IF ANY 
Abed DIS SLs A eae eh eae ce ean en Ny eres 1 el tye eee ee 
A 
A 
A 
A 
A 


015242 005001 719 PWONL TZA 

, 015243 005511 720 DATA 005511 INCREMENT A IF OVERFLOW SET 
mere ie oye MU A: bt Le ee 20 CReaeenee REA - 9 SEemeei » YM ema ae ee cee eT ee aren ae Re On TT eae ee aloacascacekls 

+ 015245 044046 A 722 TNR MLTF SEY POWER FAIL/RESTRT FLAG, : 
, 0182466 040472 723 INR © PWRK STEP POWER FAIL COUNTER 
BOTS CST O00 000 ire Ue ee UT ae oh iS a tthe eat a I eM ete ee 


726 * POWER UP PROCESSOR 
Ba a es aaa ak Ds ee ee kale eee ee Og ee pee 
015250 014943 A 728 PWRU LDA HLTF CHECK IF POWERING UP FROM RUN CONDITION 
} 015251 001010 A 729 JAZ PHLT 
wc OVS OS UT I a aces a cee nh enone ee cel ee wees 
015253 005001 A 730 TZA CLEAR POWER FAIL/RESTRY FLAG 
; «6015254 054037 A 73t STA HL TP 


733 «* ; CODING TO REINSTATE 620/F OPTIONAL HARDWARE AFTER A , 
| 734 x POWER FAILURE, MUST BE DEFINED HERE, THE TOTAL EXECUTION : 
ene aT EE ED Le - s, reee enenene TIME NOT TQ EXCEED A SPECIFIED TIME PERIORD, SEE PPS . lide ciitetiale <etiseeasna 
; 736 * FOR TIMING CONSTRANTS, | 
‘ 015255 014035 A 1737 LDA SAVO SETUP OVERFLOW FLAG 

___015256 001010 A A238 ___JAZ___ 3 
015257 015261 A 


015260 007401 A 739 sor. 

0 FN NR ec IP i ca 
015262 001010 A 74% JAZ ABX 
015263 015276 A 
—015264 007030 A 742 ADRS SAVRS RETURN AB, 
015265 015306 A | 

1 015266 007040 A 743 Lora ~SAVRG RG, 

SOTO Y 01 S800 GM cc a Ne ee i ett AS See Sd ng, a es 
015270 007050 4 744 LO,R5 SAVRS RS, , 

015271 015310 A 

015272. cL, eee | eee eee eee a eT Te eee eee 

“015273 015311 A : 


0158274 007070 — A 746° L0,R7?  SAVRT R7 
past 3i2 A era ca Ae ate ee ae ea te 
015276 014004 A 747 ABK LDA _ SAVA RETURN A,B,X REGISTERS 
015277 524004 A 748 LOB SAVB 
A 
A 
A 


en ne Nm eee Oe eam cea em ee we erie . ee eee ere eee enna 


t 
i 


sos tp wo wow ow pe 


| 
j 
| 


| 


| 
| 
| 
| 


015300 034004 A 749 LOX SAVX | 
015301 001000 A 750 JMPw = PWON RETURN TO LOCATION INTERRUPTED FROM 
015302 115221 
045303 000000 A 752 SAVA “DATA 0 i a | 
0189304 000000 A 753 SAVB DATA 0 Se es 

015305 000000 A 754 SAVK DATA 0 
015306 000000 A 755 SAVR3 DATA 0 B 
015307 000000 A 756 SAVRG DATA 0 B 

eT ES ee a 

g 


mA A 


OSS YVNUVUY (9 wayne wert no ie 
015312 000000 A 759 SAVR7 DATA 0 | s 

015313 000000 A 760 SAVO eer Seas, nla Maa fee tata Nt ce a he acer he FG ee a et ot SN | opments 
015314 000000 A 761 HLTF DATA 


18 Aneta mens mage ee nba Ra ene eg, cn eaten Hr a cae cerns ne enna RCNA ER AN et eR eR ee OE ree aR mee canna Ne eet ete eeeN RRERE a | tRNA SANT OLN + feet Cena Meee IE T Rey fmt meet nem 


767 * MESSAGE TABLE 


—O1S315 100012 D769 MSG DATA _0106612.°THIS 18 THE V70/620 TEST EXECUTIVE! s010661240. Heaton ees Deak a 
O1S316 152310 A — 
015317 144723 A 4 
_oisszo i2zogtd A ee erst ree 
015321 151640 A a 
015322 152310 A : 
fe SoS Re [GUO Mc i a Bs hn Ee te inna, Bee 
045324 153267 A eae aaa es ge ee | 
0159325 130257 A Ps 
O1S326 133262 Bo, a diw qn en eee 
015327 130240 A 
015330 152305 A | 
ee CS Sess | By eee rs Sie tea ee er Oto ene 
015332 120305 A ~ a - Se ee ] 
. 015333 154305 A 7 7 1 
OSS ST Se hiss a ht Sa, a uate a -gy o Aone 
015335 152311 A ) 
015336 153305 A 
_~O1S337 106612 Ao 
~ 045340 000000 A. Ree aes 
015341 141710 A 770 M8G2 DATA CHECKSUM ERROR X w *)0 
eM SSO 1 et ta sata ne ee Nt Asa Bed ete, ga, 
015343 145723 A 
015344 152715 A | | 
segs SS wa ace a et a ee es te eae? dy besa 
015346 151322 4 | pee | ze 
015347 147722 A 
015350 120240 8 


I aaa ea a a ac oo cea ee nim me UMN ee 


a acu MAINTAIN TIT. ~”:*COCMANUT Ee 
0153514 1542400 A | Hae | | | Cg 

| §015352. 130640 9 

f §=6015353 000000 A 

015358 146705 A 771 MSG3 DATA “MEMORY SIZE IS ° 


fai Ty SK oo Deel oh (SN ena Pe aT a PRO ES NC CE oe 
+ 045356 151331 A 7 é | | 
015357 120323 A 
015360 144732 A 


015361 142640 A 


015362 144723 A 
SUES BS 8 0 Mea Ba gy Sh a an Se eee ede kanal eee 
015364 126655 4 772 M8G4 DATA — femkK?,Q 2 ae | 

015365 145640 A Se a | 28 ae 

wl OLS S66 000 000 Aes oS aac a aa ee Ea a ace Septal lt 
015367 120240 A 773 MSG5 DATA ¢ INVALID?» 0 

015370 144716 A 


MARAT 155401. 
015372 146311 A | | eg 
| 015373 142240 A e tn i | 
fe 015578000000 Acc ot re See eee See pee 
015375 106612 A 774 M8G6 DATA  0106612,*THIS IS THE V75 TEST EXECUTIVE’, 0106612,0 8 
015376 152310 A 
és 
015400 120311 A ee } ee 
~01Sd0L 151640 A : ate a 7 a. 
| oisaon ssasio we 
+ 015403 142640 A : 
015404 153267 A 


Tn eam ietamemnteieata een tenia tester anette en cence cee Tame area eas roe Taal as re rceen a oe a ee ne ec en we eee ee . tae Ly mee mmm ARORA Oe ee ame 


csneshbeniedenaaa’ednosa abespenetenentniatenantienentondienansenneah rentincorantatebaetinanaeetramnmatnaimnemenemeatcenareentetamranmescrcae eR ee Le ee ee i) Fe nearer mee 6 a ra tana cn pramemnummnte nen danar 8 @ memegpe 


15405 132640 A 
“045406 152305 4. 
015407 151724 A 


te tnt iP et eet tw natn nee aaeresemettete eaten tt Attar atthe MAR AA ona niet e oemA OREGANO MARNTEAARN: RRA RC ORATOR A: mAh a AmANUNN enh awe trat Leltn mae mnie mee Re Mbit a mts ote 


015411 154305 A 
015412 141725 A 
A 
“015414 153305 A 7 a | . 
015415 106612 A 7 : ner 7 - | 
015416 000000 A 
775 * 
776» 
a Ht +-—ROUTINE OR, DETERMINING CORE. a aa i eee 
. o1sai7. 000000 A 779 ESZA ENTR 0 
015420 100545 A 780  €xC 0545 tee 
015421 006010 A 784 LDAT 014000. DISABL 
015422 014000 A 
015423 103146 A 782 OAR 046 CACHE 
A 
A 


At TLC LE AA CRANE YE AE IETURt CRIN ES methA  MeRiRENARRLY wtinrnan ete aE RttER ACARI T ANIC RARER SENN ERR AERA fem te Fw ata N ser Renny ce deicemam eae cet Hate hy Smee game ont ia). sestow tae 


015424 010000 783 LDA ) 
015425 050002 A 784 STA 2 SAVE CONTENTS OF LOCATION ZERQ 
075626. 005001 Ae 7B TR eh es ee fee hrc eles ater aan 
- 015427 050000 A 786 _ STA 0 | Rs 
045430 005311 A. 787 = bar. Aue}. 
015431 006120 A 788 £971 ADDI 4096 ee sw NEXT. OK _MEMORY. ADDRESS 
015432 010000 A 
015433 005014 A 789 TAX 
—015434 025001 A 799 LDR Cpt SAVE MEMORY CELL IN B REG 
~—6©095435: 055001 A 79% STA del | ee 
~—=015436 015001 A 792 =~ ~— LDA tel 
Re 0-3 ae G4 JRE Go See So aN are Re ire em ere ee ee 
015440 001010 A 794 — JAZ ESZ2 JUMP IF END OF MEMORY 
015441 015446 A 
Picea Wistar al fen ee ee a 
| 019443 005041 A Bhd. oe a RA Oe : A a: 
* 015444 001000 A 797 IMP E871 
015445 015431 A. ot as ale aes Salah etree Bh SUD Pde ei ie cie as 
015446 010002 A 798 esz2 LOA 2 RESTORE CONTENTS OF 
015447 050000 A 799 STA 0 LOCATION ZERO 
qisaed Geiety katy a ee 
015451 001000 A 804. | JMPe  ESZA ca ee 
O15452 115447 AO 7 | 


B04 » 

ea 1 1 a ee as FOR ABELL. PRINTOUT ___. Ete ecole Ss el tn ae 

015453 000000 &4 807 E8ZB ENTR 0 

915454 010441 A908 LDA =sSMEM.—s = CORE _SEZECKT7772.__ 

015455 004354 A 609 LSRA 12 TRUNCATE 7777 

015456 006120 A Al0 ADDI ETAB ADDRESS OF THE ASCII EQUIV TABLE 
—O15457 015467 A ee nee Ne eee Ae Oe re 
015460 005014 A aif =. TAX.” : ee 

015461 015000 A ata LDA Ort GET ascr! EQUIV FROM TABLE EYAB 
015462 006020 A 813  LDBJ  M8GH = SET MEMORY SIZE(04,08,EYC) INTO M864 

015463 015364 A 7 | 

015464 056000 A 814 STA Or2 
.. 915465 001000 A 813 ____ -9MPs__ESZB RETURN _. beaeeret eet At ge ae 


(015467 120260 A B16 ETAB ‘DATA 0420264 ASCII on 
~O15070 12070 ABE DATA. 20RD 


DATA 0130662 
015472 130666 319 DATA 0130666 


A 
A . 
pepe A Seed a 8 LY ee eet © REC) WL) Se nn ee a ee 
A | aa, | 
P mi 
A 


scone aiacedahtentenemndctnmnimenteaneapamemaneiotamamaes +e 7 oe omen 


015474 131264 824 DATA: 0131264 
0135675 131270 B22 DATA 0131270 ar 
015476 131662 A 823 ss DATA 0$31662 


ea 


ie apm. attuae. 5 a . MATNTAIN TIT) UW MAINTTE OO oe PAGE 
Red * 
Sea : a a ete wince a esc Shae. Sn ctt caueen wee easlaee 
Bee * 
B27 
a ta erecta AOSD esse OI eee aie UP tee BOM ct catlate 3 xp Rigs crate dca eae a aia cee ara te 
Bed « 
830 BOGGS UIE SISISE UII OIG IO SINGS SISEIS GIGI OISIDIIIIAISIGHISISINIIOISISIIEI IOS ISI ROOK Tok 
oe Se Wes — ee oe t 
a32 * “SENSE SWITCH. ‘SUBROUTINE | x 
833 * THIS SUBROUTINE PROVIDES A STANDARD SENSE SWITCH INTERFACE, * 
fe BSG UTE CALLING SEQUENCE 18 AS * 
835 '. THE A, B, ANO X REGISTERS CONTAIN “ERROR HALT VALUES, * 
836 « CALL SSwf ” 
cate gash stele a eae yee eens nae OND AM setae oo I CU REGISTER. VALUE) . * 
836 * DATA (ERROR MESSAGE ADORESS) “CIF. NEG, ERROR SUB. ) * 
B39 « DATA CTERMINATION EXIT) * 
ie ctl area eae a eerie We ce oe a a OP ON. RRR OR EU soe es we, ie nd * 
B44 * | * NORMAL EXIT RETURN al 
B42 * | * 
ee oe eee L USTANDARD SENSE SWITCH SETTINGS x 
S44 S81 @(SET) SUPPRESS ERROR PRINTOUT * 
845 * CRESET) ALLOW ERROR PRINTOUTS ” 
Spot br ee ptenl 16 : 7 , ERROR tek we taae Pe 
. 4 Ba? * a nee CIF SET. AFTER HALT & CONTINUE y * 
648 x . oe (RESET) oN NOT HALT ON ERROR * 
EAL TC trae ee OUT E es 1k JET, Le Ree ee ee ea _._ (IF HALT ON ERROR SET FIRST THEN RESET ON. a 
850 * HALT CONDITION = LOOP UNTIL SET ) * 
651i * SS3 (SET) TERMINATE TEST = RETURN 0 BEGINING OF TEST « 
PE STORET SE REESE * RESET) CONTINUE TEST we eM 
ae . as3 TESORO IRSICUIS IIS IIE OIIISISISISNI IO I ISR IIIOSONI NICU I I IIE 
854 x 
_015477 054125 A 855 SSNP STA __sgwg i§ ssi“‘(ast*CS AVE VOLATILE REG PO oe eects cies, A. neh eee 
015500 064125 A 856 STB SSwS¢i{ 
015501 074125 A 857 STXx SSWS¢e2 
__015502 001400 A 858 noe SW IF _ $s 3 SET RE TURN THROUGH TERMINATION EXIT | 
“918503 019630 oe oe ser . = 
015504 001100 A 859 ssi “samt CHECK F rTy SUPPRESSED 
o pisgos olesay A eee cet tate hte oars aes ee ae Oot Roe eR ers, aceusa aud 
015506 024132 A 860 LOB SSwT GET 2ND PARAMETER 
015507 005122 A 6864 Te8R 
015510 016000 A 662 LDA 0 Se a ge te 
015512 015527 A. a in ec 
015513 005012 A A 86d TAB ae poo SHEER IF BIT 15 SET ee ee ae 7 : 
015514 006150 A 865 ANAT 01000 
015515 100000 A 
015516 005014 A 666 TAX 
015517 005021 A 867 TBA 
015520 001040 A 668 JXZ xo 
ES S21 ONS SO Bn Be Rah eget Pie wean notaries seat ncete 
- 48522 001000 A. 6 oe or » SSWR- CALL ERROR: R SUBROUTINE 
Betts OPS613 AL — pe | 
015524 005014 A 870 a 7) ee PRINT. ERROR MESSAGE. oo aepeenecegeeas. ance als dp ese ea 
please 002000 A ATL CALL OUTD 
015526 016354 A 
Seas a se eg es Sawer IF 883 SET © RETURN THROUGH TERMINATION EXT. 
“015530 015630 A cee a 
015531 010440 A 873 © LDA  —° SFLG CHECK IF LOOPING 
__ 035532 001010 A 674 asa ee eee eee ee ee OTe Se A F 
015533 01556u A 
015534 001200 A 875 SSwe J&S2 §8w3 LOOPING © CHECK IF TERMINATE LOOPING, 
Penh cP kT) 3 Ge ee eae ie mene iia ee ener ener ee eres ase, nee 
015536 024102 A - 876 SSwt LDR.  S8wt- i RETURN THROUGH 1 LOOP EXIT. 
015537 005122 A 877 TBR 
Oe habe LUA 2 Ga a «e - S  -<, Pe ee Tea ea ee ee Cee ee a 
015541 005122 A a@79 TBR 
015542 016000 A 880 LDA Ore , 
~015345.054004 A 884 STAN SSE, i> Ne nee he RE Ee nD a Re on EN ea a ee tee 
015544 014060 A 882 ~ LDA  §8ws- RETURN VOLATILE REGISTERS, 4 
015545 024060 A 883 L088 SSWS+i 
. _ 015546 034060 A 884 = LOK ace sonia eect Netter gb ae ens a nde ne ae, Gee Mahe. ~ «de 
015547 001000 A 885 JMP 
| 015550 015547 A 
p _ 015551 005001 A 886 SSw3  TZA == RETURN TO NORMAL EXIT (CONTINUATION EXIT) 
Ls 015552 050440 A G87 . STA © SFLG CLEAR LQOP FLAG, 
015553 014065 A 888 LDA SSwT | 
ee AO OG LO BIG a ce a ha hy eo, Se eis stale aud eR ada heen Se | es | eben 
015555 000004 A 
015556 054004 A 6890 STA #45 | 
| _..015557_ Q14045.4 p91 LDA _sswg__._ RETURN VOLATILE REGISTERS. 0 
t 015560 024045 A 892 7 £08 SSwWS+¢1 
| 015561 034045 A 6893 LOX SSWS+e2 
2 nto OR S29 00S 000 Bin OG aol MM ee ay Badal ees sodas . 
j 015563 015562 A 
' 015564 001200 A 895 SS8w4 J8S8e2 SSwW5 CHECK IF HALT ON ERROR . 
BE eNO esr Nae ee a et cn ae amet a Suan of, 1Webe q diag te 
' ~ 90159566 001000 A €&9%6 MP » $8w3. RETURN TO NORMAL EXIT LOC, 
015567 015551 4 : 
, ...915570 924050 A 897 SSWS LOB £S$SwT GET FIRST PARAMETER ©... 
‘ 015571 916000 A 6898 LDA Or2 
| = 015572 054003 4 899 STA +l 
. 915575 901403) A 900 = LDA =6S8SWS) CC CRE TURNED SAVED PARAMETERS, ©. rage statue: Tae 
\ ~—6d015S74 024031 A 901 L038  S$Sw8et ; ‘ 
4 015575 034031 A 902 1.0 X SSwSe+2 
0419576 005000 A 903 NOP ST PARAMETER STORED HERE AND EXECUTED, 


1 PAGE «4a MAINTAIN TID 0 0 MAINIDD 
015577 001400 4 904 S8w6 JSS3  SSwE- IF 883 SET RETURN THROUGH TERMINATION EXIT 
015600 015630 8 en 
015601 o10440 A 905 LDA SFLG CHECK IF LOOPING 
015602 GO1010 A 906 JAZ xed 
04156003 015606 A 
015604 001000 & 907 IMP 8802 | 
015605 015534 A : 
015606 001200 4 908 _ J8$2_  88w3_ ss LOOP FLAG ZERO © CHECK IF LOOP REQUEST 
015607 015551 A . 
015610 040440 a 909 INR SFLG INCREMENT LOOP FLAG 
—OLS611 001000 A910 MP $8 SUMP THROUGH LOOP EXIT 
015612 015536 A = : 
015613 006150 A 911 SSWR ANAT = 077777 ERROR SU@ROUTINE MASK OUT BIT 15 
015614 O77777 A ule ihe iis it Di et Selatan ML es oe 
015615 054004 A 912 STA #48 
015616 014006 A 913 LDA SSS 
015617 024006 A 91g wStd na eeee ak ee ba sean 
015620 034006 A 915 LDX | SSwS+2. 3 
015621 002000 A 916 MPM CALL ERROR SUBROUTINE 
_ 015622 015621 A iad tans pei bape ieee eee ee de ee at re 


015623 001000 A 917. 
015624 015527 4 


JUMP THROUGH TERMINATION E EXIT, | 
CLEAR LOOP FLAG, ~ 


—$13ee2 —--918 SSWS 
015630 005001 A 919 SSwE 
015631 050440 A 920 ae 


' 015715 006130 MGS: 5 EWA 0587 nt RENTON te 
: 015716 000337 = 

{ 015717 944006 A 964 INP INPC | 

f .. 015720 044005 A 965 0 INR NPG 
/ 015721 044004 A 966 INCL INR TC SINPC ae 

' 015722 044003 A 967 INR -INPC 


EUS OEE 


See o'er 


"045660 (000000 A. 


2 


015633 GOSi22 A 922 SET UP TERMINATION EXIT 

015634 005122 A 923 
~—013035 016000 _ A 4 Sitio a ta ee een ae Re ee ee pouadts 
045636 054001 4 925 
: 015637 001000 A 926 
015640 015637 A a one 

015641 000000 A 927 SSwWT SENSE SWITCH SUBROUTINE ENTRANCE 

015642 001000 A 928 
—O15643 015477 A , : - RE LE Eee ED ORT Meee Ca IIe ET OE eRe ey 

Pe LT SE Oe ros ET 

: 930 we ‘INPUT ONE CHARACTER FROM TTY TO (A) REGISTER 

015644 002000 4 932 INAY CALL INPH, INA2 SENSE BFR RDY 

015645 016232 A 
045647 001400 a. 933 A8ss INAS | 
2 015680 015657 A. 2 ea : 
015651 001000 A 934 ee ND ce et cee eae a ge 

015652 015644 A | 

015653 002000 A 935 INA2 CALL INPI INPUT CHARACTEP 

015654 016244 A 

015655 044002 A 936 INR INPA NORMAL EXIT 

015656 044001 A 937 INR INPA | 


015660 es 939 NPA. BES oe ENTER 
1 bO1000 A edo IMB? wan, Bas Tat gol ees tle ars Dace ie tinea hed Sener fo hae sa tesa St Ree lene ee ee 
015662 015644 A 
941 * 

Fak vegans «at ek obals © CHARACTER ¢ PRINT PROM TTY TO A REGISTER nae 
9 Wobap 
015663 002000 & 944 -INBL CALL i TNPA INPUT ONE CHARACTER. 
018660 018660 4 tie se site a atta sisigin rane uss 

015665 001000 A 945 JMP & ~~ ENPB TERMINATE. EXIT. 


0135666 115674 A 
raters 
- 015670 Of62d7 A> 


015671 044002 A> ear ae: INR . INPB ; ee ne 
| pisere ouaoola” A 2 NaI ct th Sse le ec dy or Ele 
015673 001000 A 949 JMPx 0 EXIT 
015674 100000 A 
a on - | eee | Seer Caeeaeee . ee re Ere 
015675 001000 A OSL NRO ENBE | 
—S«-a015676 015663 A ae oe 
82 ee Ra ae ee eT IN Te Be es eT EL Ie ee aE 
983 * 
954 we INPUT ONE CHARACTER (EDITED) 
015677 002000 A. 956° NES” cy CALL ~_INPB moe 7 
(015700 015674 & : 
915701 001000 A 957 IMP _Inpe eT TERM] INATE EXIT 
015702 115726 A 
015703 006130 A 9586 ERAT oe Ol BACKSLASH 
015704 000334 A Se eee palit aes Sita aes se Aa Se nd ae hse pe % 
015705 001010 A ~~ 959 | “SAT oo ING? va ABORT. INPUT EXTT 
. 0415706 015723 A a 
015707 006130 A 960  _—s ERA. * AN nc actss __ _™RESTORE A 
: O15719 000334 A 
ets 006130 A 961 ERA] 0337 BACKARROW 
ca 9 slaw Sei eae! oe Saas Seema 
alate 0010%0 96k MARS OTN! ~~ DELETE ON ‘ONE “CHARACTER EX EXIT 


015714 018721 


919723 044002 A 


Gageara 


ee eee 


968 ‘INce INR NPC 


(eek A RENE Sen RR Ot SNR REAR tee te ANRC eR A IoEe mI Nene ene AND ewan Neerat mms Shee mies tytn tess sakeme Memnaminge OF em mmm HF Swamp ant ete 6 comm eam OF meme wae 


OE tne OMAINTAIN TIE 0 000 00 MAINED PAGE &9 


015724 044001 4 969 INR INPC | 
ONS Ted. 092000 8 910s i gee RM ae oO aa teen ERD foe ed ole 
015726 100000 A 
015726 971 INPC BES 0 
—OLS727 001000 A. We. MP NGS 
015730 015677 A 


973 » 
O70. 6. INPUT. ONE ALPHA CHARACTER FROM TTY KEYBOARD. 10.4 REG. 
* 
015731 002000 A 976 INDG CALL INPC INPUT ONE CHAR 
seg VATS 01S FO Ge a i Spa Ec et ap gts en mts st pete godt tte eerste only une gle | _ 
015733 001000 A 977 JIMPa INPD TERMINATE EXIT 
015734 115762 A 
_ 015735 001000 4.978  _  JMP  IND2 si(“‘ws sS)dsi(sése ABORT INPUT EXIT = sit 
015736 018757 A : 
015737 001000 4 979 JMP IND DELETE PREVIOS CHARACTER EXIT j 
co S TWO OUST SS Be cic ot sl ett ep ae SS a eae tase eae oo | er: 
" 015741 006140 4 980 SUBI 0301 CHAR A . 
018742 OCOSOL A 
015743 001004 A 981 == JAN = IND3 = INVALID INPUT) OC _ ee 
| "015744 015765 A 
015745 006140 A 982 SUB! 032 CHAR 2 
OY NG 0 0.00 SO Ro ic as ea gt pat bye ee, See ee oe Sedeam, ody, it tin 4 Soe! 
015747 001002 A 983 JAP IND3 INVALID INPUT M 
-. 015750 015765 A 
_.015751 006120 A 984 + ADOT 0333 ©. RESTOR Se eee aes 
015752 000333 A 
015753 044006 4 985 INR INPD NORMAL EXIT 
015754 044005 4 986 INR INPO 
045755 044004 A 987 IND{ INR INPO DELETE PREVIO8 CHARACTER EXIT 
015756 044003 A 988 INR INPD 
__ 915757 044002 A 989 IND2@ JINR FNPD ABORT INPUT EXTY Bac ania dl cage. eg taeiae, ea Je Euan seat 
015760 044001 A 990 INR INPD 
015761 001000 A 994 JMP x 0 | EXIT 
—O157e2 190000 A Se ee Ba ie epee ates — doe gue eeeuenten 
“018762,——it™ 992 INPD BES 0 , 
015763 001000 & 993 JMP° *OINDG 
OLS TEC. OUST We ose te te ee te en ah nee we etetenspament 
015765 002000 A 994 IND3 CALL OUTG INVALID INPUTeePRINT MESSAGE 
015766 016404 A 
ect MO FT 2010 SO A OG san MP aN i Bch i tt get tere el A 
“ OUS770 OLS7S7 A ea ee ou : ze ? 
ees | 996 * 
3 ae cu RR ETERS BRONTE eee 
998 * INPUT TWO LETTER CHARACTERS FROM TTY 
999 * 
015771 002000 A 1000 INES CALL — INPO INPUT ALPHA CHAR 
015772 015762 A 
015773 001000 A 1001 JMP x INPE TERMINATE EXIT 
015776 116023 A emp e eee em ae eb e Raseseeeene 
015775 001000 A 1002 | IMP INE2 | ABORT | INPUT EXIT a 
O1S776 016020 A 3 | | os 
“\OLBT?7 901000 4 1003 "3H sINEL _—=———_DELETE PREVENS CHARACTER EXIT. dines fe ecetecrttan ee 
016000 016016 A 
016001 004250 A 1004 LRLA 8 
| I LAAR AR aaee 8 tang 0060606 GTA UT aND Fas aa ee ee eee, Baa nk Sole 
016003 002000 A 1006 CALL OINPO INPUT ALPHA CHAR | 
016004 015762 A | : : : | : 
016005 001000 A 1007. ss JMPw = SINPE = ——STERMENATE EXIT ( —<—sSsSs—S ee | 
016006 116023 A 
616007 001000 A 1008 JMP INE2 ABORT INPUT EXIT 
-Oir a a ae a eps Es AN ae I endl, Datel et 
016011 001000 A 1009 “GMP INES | DELETE PREVIOUS CHARACTER EXIT 
016012 O15771 A | { 
016013 1146442 A tot0 _ORA_TS0a. sae eee ee ee ee eee, oa es 
016014 044006 A 1011 INR INPE NORMAL EXIT : 
016015 044005 A 1012 INR INPE | 
| —fis016-oagoda & 1013 Ie} __1We_____[NBE______DELETE PREYIOS CHARACTER EX2T oe npn 
| 046017 044003 A 1018 © INR INPE : 
016020 044002 A 1015 INE2 INR INPE ABORT INPUT EXIT 
| tienei ousced 4 inte “""* ine Pe ENDE gercs boca Alen Mek Nils SS gt tect eel oh Mates, a re es 
016022 001000 A 1017 IMP 0 EXIT 
| 016023 100000 A 
1018 INPE BES 0 _____ _— Botte sat ee ee ee, eg et. ait tab sadest gu eine ote 
016024 001000 A 1019 = MP —sCENESS 3 
| (016025 O1S77L A | 
eet PRCT EEN BO eyes ore fh ne Ee pie Ai situs tale ai | - oe ates 
1021 * INPUT PERIOD,COMMA FOR MESSAGE TERMINATOR 
1022 * 
—Oie0ze 02000 A 1023 INS CALL __INPG ______INPUT ONE CHARACTER ee ee 
' 016027 015726 A | .F 
- 016030 001600 A 1024 : IMP « INPF TERMINATE EXIT 
RRO 03 RS 5 ree ane mn er, SO OORT Ee oe ae tmiene tt 
016032 001000 A $025 IMP INF2 ABORT INPUT EXIT | 
i 016033 016060 A 
| 016034 001000 A CU oer | ae —--—-—PELETE PREVIOS CHARACTER EXIT 
|. 016035 016086 A 3 | 
016036 006140 A 1027 SUBI 0254 COMMA | | 
j 016037 900254 A Saehaaces es aa eS as Sa atas g A ei ers eh ee eee Set, oe cae hy aa eset ae | 
016040 001010 a 1028 JAZ INF3 — COMMA EXIT 
016041 O16984 A 
016042 006140 A 4029 _———-—- SUB Oe PERIOD ee eee ee ee ee Se ee ee! 
016043 000002 A 7 ! 
016044 001010 A 1030 JAZ INES PERIOD EXIT 
Wisous ONeDSR hs ee i tobe hn eG fa pe eettoe tag A | | | oe 


PAGE 90 = | MAINTAIN TIT 0 MAINITE OU ees | 
016046 002600 A {63} CALL ©. OUTS PRINT INVALIO MESSAGE 

010047 016404 A sie paid tastes a ee . 
016050 001000 4 jo3e2 JMP INF2 “ABORT. 


016051 016060 A | 
—--016052.045010 A 1033 INEG INR INPE ~-———-~—-NOQAMAL EXTT Sepa 


016053 044007 A 1034 INR -TNPF 7 
016054 944006 A 1035 INF3. INR | INPF COMMA EXIT. 
__016055 044005 A 1036 INR INPRO ee eee 
016056 044004 A 1037 INF INR INPF DELETE PREVIOS CHARACTER EXIT 
016057 044003 A 1038 INR INPF . 
OGY MAtGR AGG CC ep ee 
016061 044001 A 1040 © “INR TNPF | 4 
016062 001006 A 1041 > JMR ee 8 ‘ EXIT 
016063 100000 A a cae lace ae, ge ae oe Oe ag a ee, Sc a 
016063 1042 INPF BES 0 
016964 G01000 A 1043 JMP INFS 
: 1044 : 
= 1045 * INPUT OcTAL NUMBER FROM TTY KEYBOARD | 
Poo CASS EMBLE AS 16 BIT NUMBER IN A REG oo, 
| 1047 * ONLY OCTAL NUMBERS ACCEPTED 
1046 * 
SA Hoe a eae he peat ec 
016067 054366 A 1050. “9TA> 7802 = —s TEMP STORAGE FOR OCTAL NUMBER ud 
- 016070 050471 A 1054 STA. T804 TEMP STORAGE FOR DIGIT COUNTER _e 
_ 016071 064370. yet ee Cn > i eng te Niet lee Aes AS ee. i 
016072 005002 & 1053 728 
016073 002000 A 1054 INGS CALL INPC INPUT ONE CHARACTER 
TA 018726 4 Sei Ats se eee ed | RNA Ne asta Meee LON aN tet ty data teat Dad 
“016075 001000 4 1085 ss MPw sOINPG. TERMINATE EXIT. : 
016076 116443 A : | | ae | | 
| Y DusO7? 001600 4 1056 _JMP ING? i ABORT INPUT EXIT 
016100 016136 A 
016101 001000 A 1057 JMP ING! DELETE PREVIOS CHARACTER EXIT 
0 ee See ee eae eee a TON SSR tea 
| 016403 054354 4 1058 = STA SCT SOS SAVE INPUT | 
E 016104 006140 A 1059"  SUBI «0260 7 | 
OB TOS O00 26 00M nah pe Sh ee hehe A eal ne id Es eet te AE i ea eel evn, ~eftlacata -<dtes 
016106 Fonora A 1060 JAN ING6 INVALID IF NOY OCTAL NUMBER 


016107 016150 A 


teh Mh ee ee sr a ee ee 
016411 000010 A a : 


—6OL6L12 001002 A 1062. “JAP INGO INVALID IF NOT OCTAL NUMBER | 
SCE CoC a ce ch bs Senet Neal 
016114 006120 A 1063 ADDI 010 RESTORE DIGIT 7 
016115 000010 A 
— 016116 054340 A 1064 STA T8003 SAVE CHARACTOR 
016117 014336 A 1065 LDA T8002 INSERT CHARACTOR 
016120 004443 A 1066 LL RL 3 INTO q 
Sree 414335 A 1067 23 3... _ORA = . T8038 0 ok OCs NU en ee tee A eee 5 eid eas Seem a 
016122 001020 A. 1068. * (IBZ Ci oa ~ Too MANY BITS 2 eo 


016123 016126 A i. | s 
016124 001000 eri ieee ae: “y NGB yee 2 Tecgehat inno Chi adamaschaan tad te 
~ 016425 016165 A . 


016126 054327 A 1070 STA Ts02 NO 
 O4OUTL A-tOH4 ____1N8___T Oa SNCR  W-OIGIYS es a ee Bae 
016130 001000 A 1072 UMP INGS «GET NEXT DIGIT : 


 OLOL31 016073 A | | | ge | : 
__O16132 044010 A A107% NGS” INR. INPG NORMAL EMIT eee | 


016133 044007 A 1074 INR INPG 
016134 044006 A 1075 INGS INR INPG COMMA EXIT : 
010135 044005 A1076 ————_INR__INB@ | 
“016136 044004 A 1077 ING2 INR INPG ABORT INPUT EXIT eee | ae 
016137 044003 A 1078. “INR - INPG oe a | 
‘016140 O24321 81079) Cgo7 ed 
016141 014314 A 1080 LDA 802 GET ASSEMBLED OCTAL NUMBER 
016142 001000 A 1081 JMP 0 EXIT | : 
— 016143000000 bn 
~ 046143 £082 INPG BES 0 : ae 
016144 002000 A 1083 CALL ~—sOENPY INIT TTY BFR | 
se OTS S20) Fee na ee al eee EL ates hee ele 
016146 001000 A 1084 IMP ING7 | 
016147 016066 A 
016150 014307 4 A 1088 Inge _L04— ___1808______GET_ LAST _INBL OTR Oe reer 
016151 006140 A 1086 = SUB 02540 8 TT A COMMA 
016152 000254 A | | 7 
016153 001010 A 1087 0 JAZ NGS ES . ee ee ee 
016154 016134 A | 
016155 006140 A 1088 SUBI 02 18 IT A PERIOD | | 
016156 000002 6 es 
016157 001010 A 1089. JAZ INGS 7 ees : 
016160 016132 4 Ne , 
016161 006140 4.1090. Susy ~—oaSeeozts Se 
016162 00004) A 
016163 001010 A 1091 JAZ ING3 RETURN 18 AS GOOD AS PERIOD 
— 216164 016132 4 Sas eas ge Siccae a ia AOS at Clas, ; iatlte Sig PO Mest as ac silt atin 
016165 002000 A 1092 INGS CALL OGUTG PRINT INVALID MESSAGE 


016166 016404 A 


Uae SUNN Tc ee 
014170 016136 A 


1094 « 
_ O16171 014264 A 1095 INGE LDA 25 ME ere rae EM Oe a Min BS oe 2 ace. fee eee 
016172 004343 A 1096. LSRA == 3 | eee. 5 ee 
016173 054262 A 1097  §Ta ~ F802 


.OL6174 O10471 A 1098 DA T$04 


teehee ee eet Sener ete oe eet ne a SR came ne ee em oe een Ram ee re eee te tee 


i it CIR a ASRS RIE ND Ei SS I i BET ROTI gC _ 


ae [ Sat ies Skee, = dina SEMAN TIN oo erste gl MN INTs retina Netgs. a PAGE 


016175 005311 A 1099 DAR sy REDUCE DIGIT COUNT 
wo WONT TG S067 BI Ah oie a ee eae oe ee ts a 0 
016177 001000 A {401 JMP INGS 
016200 016073 A 
Othe ea Prex, cael es DU ea fhe Me ote el a ol pet Ck aS et owed 
016201 000000 A 1103 INN  E&NTR Ea INPUT TO TERMINATOR 
1104 # ey. . 
).. 016202 002000 A 1105 ne <i), 2 Seems ©, | cae eee ee ed ee eee 
016203 016143 A 
016204 ON$000 A $106 JMP ETOP 
Pre 2) oa.) he wed} a> 058-18. Oe, Reed ed Pee eel end Ao OEE oer ec RAN Ee ECR EAS EES NA EES eae 
016206 001000 A L107 | oe ETOP we a 


016207 015033 A | _ 
016210 001000 A 1108 MP ENN zs Eee oh ae een ene 
—O1ee@tt 116201 & 

016212 001000 A 1109 JMPx INN 


016213 116201 4 7 Sa ee ee ee ee 
1110 « 
{iit * SENSE TTY BFR RDY 
pS ariel a Sean ON MR ge ne aN igen en eee : 
“016214 054020 A 1113 INH1  8TA INH2 SAVE A 
o1e2ts 014014 A 1114 LDA TNPH MODIFY RETURN 
e110 A 1115 _QRAI __o4o9090 __ Fa a re a ey : 
“pteet? 100000 A | aa 
016220 054006 A 1116 gta INH3¢1 
OVO yO OT I Nc Yast I a ee i Ge gs SS 
i 016222 006110 A 1118 ORAT 0101200 
; 016223 101200 A 
— 016224 054001 | 7 * eee 3 ee ee oe ee ee ee 
016225 014007 41120. LDA INHe RESTORE A 
| 016226 101000 A 1123 INHS SEN Ore 
A | : | ea te 
016230 044001 A 1i2e INR INPH 
016231 001000 A 1123 JMP 0 
6 QA ets pet Ses ene eee 
“Oleese. 1124 INPH BES 0 ~ ENTER 
016233 001000 A 1125 SMP sINHE 
a Naar ag en ey Ba oe eae wok Le Eh eel ce ty te, Geta pe as 
O1e235 000000 A 1/26 INH2 DATA 0 
1127 
‘ 7 INPUT CHARACTER FR W SENSING BFR ROY == Sessa so ests Lana 
2a ee mera TET | ee a se “ eet 4 : : 
: 016236 o10473 A 4130 INT! LDA STTy ADJ. CIA 
Ce UUG ST OCG LTO me ns OOO aa a a a et oe ee Se 
016240 102500 A 
016241 054000 A 1432 STA a+} 
(026242 102500 A 1133 CIA 0 INPUT 
016243 001000 A 1134 JMP 0 
016244 000000 A 
—01e2dd __4y35 INP] BES 0009 8 NTR 
- 016245 001000 A 1136 MMP INT yee a ee, Pe 
016246 016236 & Bee Bs 
« 
“1138 * OUTPUT ONE CHARACTER FROM A REG TO TTY 
1139 * 
ee oe is ae AUT A ENTR  O. ices cet octet tt ati ely poe Sek fet te oan ean leer ne oot 
~ 016250 074204 A 1141 = 8 TX TSO4 = pave - | a 
046251 005014 A 1342 TAX | ea te 
AQU6@S2 OL0U7S 6 $1636 22 oe LOR oe SITY sa ee animes S dei, oteteiadeieae 
016253 006110 A 1444 ORAL 0101100 ADJUST TTY DA 


016254 101100 A 
016255 054006 A 1145 STA wt 
016256 006120 A 1146 | ADDI 002000 ae as 
046257 002000 A oon . 2: 
016260 054013 4 11407 Sth utd 
016261 005041 A 1148 
016262 006030 A 1149 ~ Lox “tf TIME @ OUTCONSTANT 


Ns ee RNR RRR ee Ra ce ema ee mem me wee ee ee ee Te Erte ee 


gO a ea spt ml a 
016264 101000 A 1150 SEN 0,OUTS WRITE REGISTER READY 
016265 016274 A ‘ - ie 
_0fe2e6 002000 A 1151 CALLS Sour ———— 
016267 016452 A “A 
016270 005011 A 1152 MERG Ot! 
ROBT OOO kt A epee ee 
016272 001000 A 1154. —CMP se . ee ee 
- 016273 016264 A a 3 a 
016274 103100 A L155 oUTL SON Mist, 60 terete, atc ee eels te I  ,  attes, vente. 2 Severo eee 
016275 034157 A 1156 LDX TSO! RESTORE X 
016276 001000 A 1157 JMP® QUTA RETURN 
pe TS Uy I tena ress aE ie cal ale a fees ln 
| 11586 * | Pe 
2 1159 : 
5 eee 1160 # OUTPUT THO EHARACTERS | FROM A (REG 10 TTY (HIGH ORDER. FIRST) es 
1161 * ENTER WITH CHARACTERS IN A REG : 
| 1162 * 
se OES HOG 000000821165 OUT ENR ie ae a ae er Ly ner pee ee eee 
, 016301 064157 A 1160 STB  T806~ ~ SAVE BO 2 
f 016302 004550 A 1165 isiLLSR | 
; 016303002000 A $466 CALL UTA OUTPUT FIRST CHAR ee hee, tester, Gnas, te-cbacte aaa 
016304 016247 A | | : 
; 016305 004450 A 1167 LLRL B 
j 016306 002000 A 1168 CALL = COUTA = OUTPUT SECOND CHAR 
016307 016247 A | 
016310 024150 A 1169 LOB =—s«éT806 RESTORE B 
; 046311 001000 A 1170 IMP _OUTR. RETURN 


| —-PAGE 92 _ . MAINTAIN TED ou MAINED 


O163t2 116300 A 
2 


“QUTPUT CARRIAGE RETURN “AND LINE FEED TO TTY | - 2 


* 

& 

OUTC CT Passed ests Santis pst ah ouent fetta eer nei ee 
75  §TA bb | “SAVE A ey : 

é LDAI 0106612 CR AND LF 
7 

8 


_..OL6313 0090900 A 
016314 054005 A 
016315 OG6010 A 

_..016316 106612 A. 
016317 002000 & 

016320 016300 A 

A 
A 
A 
A 


' 
i i 


CALL «= OUTB ss PUT 2 CHAR 


} —-016321 006010 | 
: 01632e 000000 
| 016323 001000 

_ 016324 116313, 


Be Se ag 7 Ra ara aS Rar a Sabet ees yori. 440 meee 
1179 yMPe—ooure. RETURN 


1180 * 
1161 *  QUTPUT OCTAL WORD AND A SPACE TO TTY 
016325 000000 A 1183. OUTE “ENTR(OO | se | ! 
«016326 064022 A 1484. 878. aete SAVE BO 1 
1016837 0080020 AUR cat STZ ee ee etme y  vakn areas dauaclll! 
016330 004557 A 1186 LLusR 15 
016331 005122 A 1187 TBR 
016333 ETE A ee Oe Re SE es ade Re 
016334 002000 A 1189 CALL. (QUTA) = ——=<i*«~<iC PU ONE IGT TC 
016336 005001 A 1190 za | 
016337 004443 A 449% LLRL 3 


q 


— —MAKE DIGIT 


+ 90 sama ptr tae # 6 sat eto 


ut 0163aG A a ee a 

6342 001000 | ame “gure. aS 
01634u 006010 7 [DAY ado ASCII BLANK CODE ee 
016345 000240 
Y . Se . . <— mm — A . ba canal nt 8 ame —peememcman separa en remmane om Ramee am ent: / Ae + OREN er emamr-eree e 
Tera Ce ee ee | 1 

6350 006020 A 1196 = LDBE 0 RESTORE B 
016351 0. A ee . a ae eee ; a 7 ee _ 4 
016352 001000 A 1197 ~IMPx  OUTE RETURN | 
016353 116325 4 | 


_o16354 oono0o A jzoi gur> ene 
016355 015000 A 1202 LDA Or! 
016356 001010 A 1203 Jaze OUTD 
016357 116354 A 
016360 002000 A 1204 CALL  OUTB : 
016361 016300 A 
—Olo3e2 005144 4 1208 tek Se a a  e 
9416363 00 12 . ue  QUTD¢! Suk ie eres Me, geie 2oe 


ee a ne entre eee men art reemtenemets  :neadantenemintcenanenese haces eeanrte teens ennai Ane -estefntemmnnnamas a os rt NA 6 to nN semen A = NNN! nhs 8 mms cet Fenda CeMmRIOm 8 Fem SARTRE es MAM MeN STi ceemee June 


1208 * OUTPUT OCTaL “MEMORY ADDRESS To TTY PRINTER 7 ; xe 


1209 « 
-—0_.. nn 


“016366 054067 A lett “STA “7802. ~—~—~—~*«S AEE: WORD | 

016367 006010 A 1212 ~LDAL ee PAREN SPACE = ray 

L“O1SS7O ‘ppapag ae ee 

016371 002000 4 tai3 CALL = OUTB “PRINT CHAR . 
016372 016300 A 

—tie373 d1goe2 A124 —__Lpa__ 
016374 002000 A 1218 MPM OUTE PUT OCT: 
016375 016325 A | ae oe | | a3 

016376 000010 A 1216 LAT). * RIGHT PARENTHESIS AND SPACE 
016377 124640 A | : 

016400 002000 A 1217 CALL OUT 


“046402 001000 a le ieee ee 
016003 116303 A 
sal Act lie a a aa sh Ra a aa een « GRABER eer 
1220 * INVALID INPUT=ePRINT MESSAGE 
; 1221 * 


016405 006030 A $223 LDXT / M8GS INVALID: MESSAGE 
016406 015367 A. ae ; 
_016407 002000 A 1224 CAL __OUTD ss“ OUTPUT MESSAGE) = 
016410 016354 A 
016411 001000 A 12258 IMPs OUTG 

~Aletie Liedod a. a aa Se ee ae ee Rt ee 
1226 * os pe 
1227 * “OUTPUT. CONTROL CHARACTER SUBROUTINE af 
016413, “054020 A 1229 OUTS “STA ~ OUTHe3 ~ SAVE. A 
016414 074020 A 1230 STX OUTH+4 SAVE xX . a4 
~—- 916415 034013 te ee ee a acs re eT Sia Sgt EN tl ath cacti aac ae 

016616 015000 4 1232 LDA Ond CHARACTER | | ' 
016417 002000 & 1233 ~ CALL OUTA : OUNeNs CHARACTER 
916420 O%6247 Ae Se bee ee ee a ead tient Akae? MEER, ete, oe foes eae! 
016421 006030 A 1234 LOX] 077777 INIT. 
016422 077777 A | 
— 916423 00282000 A 1235 __ eee CALL Tony ees _TIME DELAY. Ea or a tO Aa hes at ee , PRO es 
016424 016436 A . nf 
016425 044003 A 1236 INR _ OUTH = | . “SET RETURN 

0164626 0146005 A 1237 = LDA OUTH43 _ssSC RESTORE A 


i mNANS = tee CONGNRPN ER ACEI eG ENNTENRULOEND: cb snaNnIIE th «os tar RRRMRRITOD ROS 6, meee NESE oe NEON oi $0 HEONOe Sere EETS: 


i eros 


eee —~ MAINTAIN TLD MAIN PAGE 93 of 
016427 034005 A 1238 LOX > OUTHed RESTORE xX 
016430 001000 A 1239 impo RETURN ep Gaees eeteen teem 2 eee ea 


016431 000000 A 


01643! 1240 OUTH BES ENTRY 
016432 001000 A Aga awe ours slates OP asst ees Se ae, yan bey eS 
016433 016413 A 
016434 1242 ess 2 STORAGE FOR Ae x 
Sais mete tn as DON Meads She ete aan ts st era atc ay ota 
1244 * TIME DELAY SUBROUTINE» 
1245 * 
Wasa OT 3 G00 OCI) ATT UY UT a a a a eg ee ei ges ain utk 
1 016437 005344 4 1247 XR : eS 
016440 001040 A 1248 NT TOLY RETURN | 
OSG A a i a eagle ens ind: ts, ged 
016442 001000 A 1249 JMP | 
016443 016437 A 
* 
1251 * 1/0 TIME*QUT SUBROUTINE | 
1252 * | | _ 3 
LO a a ce a hg Sed et 
016445 001040 A 1254 JXZs TOUT TIME@OUT RETURN 
016446 116452 A | 
__ 016447 044002 A 1255 __ INR TOUT SET UP FOR aT Sree Lee eee ee ES 
016450 044001 A 1256 = = INR) TOUT "NORMAL: EXIT | a 
- 016451 001000 A 1257 JMP Oo | 
016452 000000 A _ cae a Eee aR hl tee ee cee 
016452 1258 TOUT BES 0 
016453 001000 A 1259 JMP TOUS 
Sek me a a a 
es «$2608 es | a - | 
1261 * DATA TABLE 
es ar 62 * Sc era BS ree Sa 
1263 * 
016455 000000 A 1264 TSO1 ATA 0 TEMPORARY STORAGE 
—O16456 000000 A 1265 T8092 DATA Oo | TEMPORAR R steel oe oe 
016457 000000 A 1266 TSO3) DATA 0 TEMPORARY STORAGE 
046460 000000 A 1267 T805 DATA 0 TEMPORARY STORAGE 
016461 000000 A 1268 TS06 DATA ——_____._.___-_- TEMPORARY STORAGE 
016462 000000 A 1269 TS07 DATA TEMPORARY STORAGE 
015033 A 1270 END EQu ETOP 
RTE an ~ MAG TAPE 170 ROUTINES, WITH OPTIONAL BIC, 
1273 * | 
pono a daar cou 
000026 A 1275 BIC EQU 026 
1276 * 
1277 * DUMP PROGRAM ONTO MAG TAPE UNIT 0 TO 7 
1278 WRITE FIRST, LAST, EXECUTION,ORIVE@CTLRI,BIC), ae 
1279 * *PX,Y,Z/DC Cy BIC) .* 
———016463 A 1280 EPUN  EFQU ow 
06463 A 1281 PCHM = EQU ee 
o16des poeta a 12620. LDA TO 
0 A a ees oe rn 
016465 054057 A 1283 STA MCOL 
016466 054101 A 1284 STA MCO2 
SITTTCTEreret rere LESS Wey rail TNN Seeaaeon es a ae ee ae 
016470 016201 A Bane 
o16d7 050402 A 1266, oe BTA BRST 
-, - : us ; A a rcieMotpst eng oes cs eA aap eas Ben ed al en 
016473 016201 A 
016474 050463 A 1286 STA LAST 
“016476 016201 ee ee ee a , 


016477 050465. 


016501 016625 


016502 005001 1292 WRI2 TZA 


A 
A 
016503 054440 A 329% STA — 
"016504 030462 A 1290. == LDX.sCOFRST 
A 


016505 074441 4 1295 >. - 8TX MTBF “ Set ADDRESS ‘CONTROL 
? : A ome __f BUFFER ADDRESS == Pea gt ee eet 
016507 070464 A 1297 STX CKSM 
016510 00Si22 A 1298 TBR 
~~ 016S1e2 045000 A1300 0 LDA Orbe ye PICK UP WORD | 
016513 056000 A 130% 9° — STA O,2 PUT IN BUFFER 
916514 130464 A 1302 3 §=ERA CKSM ee eae ae cng a ee aan oy ea ee sa a 9 I cgi eam ena 
016515 050464 A 1303 STA CKSM 
016516 044425 A 1304 INR CNTR INCREMENT WORD COUNT 
SaTIV UTLEY TUS hs Ses SERRE TT GaGa © (Cs eee 
016520 140463 A 1306... ~~ Sua EAST i END. OF RECORD 
016521 005144 A 1307. IXQR . 
_o1e822 001010 A 1308 Jag. wat |< SNE Meee eS eR oe ee 
016523 016531 A 
016524 014417 A 1309 LDA CNTR 
—pieses 006140 A 1310 ______SUBI_075____.__RECORD Fup 4 
- 016526 000075 A a ae Cee ee % ee BO PSS S Meh ae 
| 016527 001004 A 1311. JAN  -WRID NQ 9 OES 
_ “016530 O1651f- 4 eiitin Son ie i Oe ee Peck ae eRe ieee Bt a Sor Nac ane ere rie ws Sas 
016531 070462 A 1312 wRI4 STXx FRST SAVE POINTER 
016532 005122 A 1313 IBR 
~ 0 nO a a ha eee | 
016534 {34s07 A 1315 . ERA CNTR ee oe CP ogee | wd 
016535 0546000 A 1316 STA 0,2 — as fy 


916536 024405 A 1317 DB FCENTR 


RF 016584 010465 A 1330 


[" o1e6so osu 


| —016660 0061 
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(016537 064406 A 1318 
_ 016540 005122 A 1319 
0L6541 005122 A 1320 
/ 046542 005122 A 1321 
__ 916543 034376 aa 
016544 002000 A 1323 
| 0$6545 017056 A eee Ges . 
~” 046505 A 1324 MCO “£0 wef” 
016546 010462 A 1325 LOA FRST 
016547 005311 A 1326 DAR 
4 A 
016551 004004 A 4328 da 
016552 016502 A ees 
 Gheses onatie A iad : 


SET RECORD LENGTH 


Ay neem ater am ane: 


{016555 001004 A 1331 NO EXECUTION RECORD 


7016557 054367 A 1332 re 
| 016560 oos301 A 13330 


| 21658) 134360 A 1335 ERA MTBF 41 
016563 054364 A 1336 STA MTBF e2 
a 


3s Oe 


cis ea ae re eat, Seem ei eametenttaeeentanD 


/"016570 017056 A } 
016570 4 1340 MCOz «EGU ted 
M 


016573 A 1344 LODE EQU 
016573 A 14345 ELOD Eu * 
A 4 “ ee ————SE1L_DRIVE NUMBER 


INPUT RECORD a 


1% sv same eteaemnnemtetine teeters Ln i St - AteatReNA ALON: a een RI RE Aen ay Atte shennan 4 aRmemNtatANataRrS 


046577 TOT A 1348 TzA 
016600 054343 A 1349 STA CNTR RESET WORD COUNTER 
IY EXECUTION 


6602 001004 A 1351” . RMT —¥ES 
3016623 A : = Me 

= 034335 A 1352 Lox BUFR a 
016605 005144 A 1353 IXR 

016606 025000 A 1354 LDB Ort GET STORE POINTER 

016607 005144 A 1355 IXR SET LOAD POINTER 

016610 015000 A 1356 RMT1 LDA Ort GET WORD 

016611 056000 A 1357 STA 0,2 STORE WORD 


016616 005122 A 1362 TBR 
016617 001004 A 1363 JAN RMT NO 


25 009000 4 | 


ateeot : 
o0usd2 A 


016632 | oe 
16633 ee eg 
016635 006120 

016636 017247 
“016640 026000 A 137 
016641. 006010 A- 
__ 9016642 104000 A 
016643 005031 
016644 054000 
“016646 006150 A 1382 
- 016647 000077 A 


016630 


1 ete me meme te 


atte 
UTBL 


TELRI 
: ANAT. 


ener netinteteneafene intentional nett enn RN eR RENN CNAME EW ements! + tenn nema is en 


ADOI 


Thea ee 
bar | “0104000 SELECT COMMAND 

“WERGE031..~~—SC:”CO”COWNEEWSSELECT COMMAND 
STA we 


em tee et ah eel aN RN te a eR eR © 20 na note mae etn i 


ee nn coins it naRteRIniee RN ORE Int em et RR RS YA, se RRR REE SSEESRE —Aetr RIP 


016651 006030 A 
016652 017267 


LOXY MTL 


rer o1eneo 
016657 015000 
0146661: 000256 A 


| 016662 001010 2 1390 code 
016663 016670 A 


pian tt oS a OE Aas coed ja A i oh ecole MATT ro eid. Gene a PAGE 95 _ |{ 
016664 002000 A 1394 CALL aN N fe (COMMA s GET BIC DAD 
__ 016665 016201 A ee i em - ens 
016666 006150 A 1392 ANAL. 076 SAVE EVEN ADDR 
016667 000076 A 
Sapceti Getein hase —-—BADR_.________SAVE DA OR O IF LL Ee pi biaiun gietg beeen aes 
016671 OO1010 A 1394 . (JAZ SETS ss ZERO USE SENSE 
016672 016705 A cae i Uo GiRae a, Ste ee 
016673 054247 41395 = STA DA 
016674 006030 A 1396 LOX! BICO 
016075 017315 A 
eer ET CT ca EC da eal 
016677 O16711 A | 
016700 044242 A 1398 INR DA . SET ‘BIC# DA 
__ 016701 006030 D A1399 LOX Bye eee oer CPs ee asthe an Me otic 
~ 046702 017322 A 
see 002000 : 1400 CALL SETD SET BIC4#! DEVICE ADDRESSES 
4 a ee eee eee 


24 016705 002000 b 1401 SETS (GALL SMR . SENSE MT READY 
016706 O17116 A | _ 

016707 001000 A 1402 —ssJMPw ss SETM = RETURN, 
016710 116625 A 


1403 * 
ana ___SET DEVICE ADDRESSES nn ee 
a | YT) ie eer ee ee eae a 
016711 000000 A 1406 SETD ENTR 0. een | : 
016712 025000 A 1407 SETS 0 at a poe eee tt, Tee eine eee tee 
016713 001020 A 1408 JBZ* = SETD - 
016714 116711 A 
A 1409 A | __GE M te ee ee ed ee eee 
“OL6716 150477 A 1410 = ANA” MASK eae ; 


036717 114223 vA 1411 | ORA | DA 
016721 OO5144 A 1413 IXR 
| 046722 901000 A 1414 JMP SETi 
| 167 =.) ee a co a date ee 
i a ? tate 7 SKIP TO FILE (Xx) UNIT 0 TO 7 
ERE En MRE FE Re canens cate a une EAE EAD NT Sa Nee 
14 * 
016724 002000 A 1419 FIL CALL INN 
COUT MCT TCE ET) on = ps ae ee iat a = 
016726 050465 A 1420. = «STA EXEC — «SAVE 
, 046727 002000 A 142} CALL SETM 
| 016730 016025 A a ce Mn as ah ce a cca a iN ss gee tg go 
' OL6731 1014610 A 1422 MTO1 SEN OG6004+MT,FIL1 SENSE LOAD POINT 
016732 016734 A 
016733 100710 A 1423 MT02 SEL O7004MT REWIND 
016734 910465 A 1424 FIL LOA EXEC GET FILE NO, 
016735 001010 A 1425 END DONE 
8 AOL ce Feet es 
016740. 002000 ‘A 34a7 FIL “CAL SMR ee OEE : 
016742 100510 A 1428 MT03 SEL OS00eMT FORWARD 1 RECORD 
016743 002000 A 1429 CALL SMR 
| ~ BLO TAS 017116 4 nec eS Tah cas tt 
“OL6745 1013510 A 1430. MTO9 SEN UR0UTM rite BENE rane. pan, | ae ey, 2 
016746 O16735 A Oe . Pe Pe 
_ QOL6747 00%000 A fi | M Ses NE eee edn ge 
016750 016740 A 
1432 


* 
* 

a & DRIVE*CTUR I BIC. RDCTHBICL y 
: | 


oa " sal 435: aes 
Lone7s1 ozone “1u36 EOF CALL —sSET™M. 
"016752 016625 7 
016753 100410 A 1437 MT0S SEL O400eMT WRITE FILE MARK 


016755 015033 A 


(orc NOT USED) 


RR meee new amapepemeyeghenpmane tt 


ee ee TAPE INPUT EE SERS MEL a SRE 

INPUT RECORDS OF RANDOM Size, TT TO 64 ‘wORDS 

016756 000000 A J44 

~ 016757 008001 A 144 
016760 054164 A fae 
__ 016764 020460 A 


| MTIO Sn BUFFER SIZE ee an Re ee a Cee ee ne RN CES ee 
016762 034157 A 1447 LOX BUFR BUFFER ADDRESS 
016763 002000 A 1448 CALL SMR MT RDY 
p—OQ16764 OL17116 A , Bo 
f 016765 014153 A 14d9 a) ae “BADR 18 BIC BEING USED? | | 
1. 016766 001010 A 1450. “Jaz” MT06 — ENPUT UNDER ‘SENSE IF oO 
| 016767 016772 A ae. 


016770 001000 A 1451 JMP SCI YS CTHERWISE USE | use BIC INPUT | 
016771 O17036 A 

016772 100010 A {452 MT06 SEL ___READ BINARY UNDER 
“016773 101110 A “1453°MTO7 SEN OL004NT»MTI2 BFR RDY ah 


<a enaendiieaneeeieeetonensunanteeonnnceanendhenen tomate geteattheneattnaadenditoenemaael 


NSE CONTROL 


946775 101210 A 4 54 MT ____ OBOOeMTAMTI1O MT 
016776 017012 A 
016777 005000 A 1455 NOP 
—017000 001000 A 1456 _ UMP __MTo7 SCOOP aoa eee ae ee ee 
“OL7001 016773 A are Te Eg ere ee 
07002 001020 A 1457 wTT2, —JBZ wre | | “RED TOO, LONG 
017003 017020 A Toes cee a ree ek Cee 


mm P AGE 96 Ss amas edness Add owen oe MAIMEDD eee See we ae SP an os ee, Qrashe ete ee 
|) 017004 102510 a 1458 MTO9) OCIA” oT 
- 017005 055000 4 1459 iat abe Wea 
017006 005144 A 1460 
017007 005322 A 1461 
_017010 001000 4 {4o2 
017011 016773 A~ cae 
017012 101310 A 1493 T40. SEN. 
017013 017020 A | oa 


017014 101010 A 1464 MT11 SEN aT TTS 
017915 017026 A 
1 017016 001000 A - 
f O17017 116756 A De 
017020 006610 4 $466- Mra 
0170 000336 A 
“0417022 002000 A 1467 
f 017023 016247 A 


[ Tos70as o1so3s 
017026 044116 


447030 
017031 


1465 , a a ) 
our 7 UP “ARROW IF rie MARK 
“or IF RECORD GT,64 WORDS, > 


hee oe ee ee eee 
ce 1469. TIS INR MGE 


140460 | 
001002 


017044 120460 A 1481 ADD K100 ace 65 TRE (1.67.MAX) 

017042 103127 A 1482 BIY2 OAR BIC#! SET FINAL ADDR (1 EXTRA WORD) 
3 A B 8 ACTIVATE 

SEN wT "READY 


END OF RECORD wILe “s70P Bic 
1487 JMP MT14 WATT FOR READY 


(1488 BIy3 GEN BIC#1,MT10 SEN ABNORMAL STOP — 


489. RMAL STGP DESIRED. -fipicates LESS THAN 68 WORDS! 
1490 JmMP RECORD ,GT,64 WORDS (DIDN°T STOP) 


005000 


~ OL7047 


017050 001000 


7052 101027 
O17053 017012 — 


>>| FSP > b> 


1492 * MAG TAPE QUTPUT 


Abe guR 


TIE, CLAUS GG) es a 
pepe colon ce eee JAZ MT15 USE SENSE MODE IF NO BIC 
17063 017066 A ee cece ere, 


WMP BTYd—CDTHERWISE USE BIC OUTPUT By ay ee ee 
EL __—-O200eMT _— WRITE BINARY UN ‘eae line’ coi 2 ae es 


, 10 A 1500 M715 SEL 
017067 101110 A 1501 MTL6 SEN O100¢MT,MTO1 BFR READY 
017070 017074 A 7 


017075 103110 
017076 005144 


| — 017100 901020. 
OL7L02 017104 & 
102 9001000 


_ 017 | 
017103 017067 A 
017104 002000 A 1510 CALL = =SMR_ C MT ROY 


“PARITY ERR 
wnat ; 


Sloe ceeeteeentnaentatinaneantnemaantemnaehemnenenetamataenemnaeacenanteiaianee 


CHGS aig SE NTIS EE” 
eS OLTLOT O17 EIR Ae 

_ OF7140 00100 ae? 
017141 117056 A 


“MTG ERR” 


an Ene Sgt ge ao ote: eng eet rm 


“MTF! WAG TAPE ERROR ars, 4 | 
ae KOAW ogg ae oe ee oc a ates 


Te 


““Oi?it2 034034 A 1535 ERR 
=P 


1s. o17its: $ 001000 & 1516 


-OLTLIS 101210 a 1520 MTy9 
: OL7UT6 0171S ke 
f_O17116 
017117 005000 
017120 001000 A 
f—Olui2101715 a 


NOP 
IMP MT19 WAIT TILL READY 


ee emcee i 


“ourPuT wT UNDER prc conTROL 


teem stem ene nee ae 
ewer eet tin A eee eho ne anaemic conn sateen, AO as a ei NRA tm tint wn eth. caer ent nem 


gy Sa eas tet MAINTAIN UD MAINED. PAGES. 


017122 100027 A 1527 BIYG EXC priest a “INITIALIZE. BIC: | ~~ 
__O17123 005041 A 1528 _IXA cee _GeT BUFFER ADDR IN X_ teenies, atl, cicada seat eyed 
017124 103126 A 1529 BIX3 OAR BIC SET INITIAL ADDRESS 
017125 054120 A 1530 STA XTRA SAVE START ADOR TEMP 
__O17126 060502) A 153)  83=§38=ETBA EE OE Ran on dati APO 2 Co Tt fa otek sa cael 
O17127 OOS3i1 4 1532 | PART 
017130 124145 A 1533 RDO XTRA. 7 ORM LAST. “ADDRESS: go 
__ 017134 103127 A 1534 BlYS OAR  BYCel SEY FY NAL ADDR Line oo ele coeecs pemuansice oy Be sesd aes eta aer tha 
017132 100026 A 1538 BIx4 EXC BIC ACTIVATE BIC 
017133 100210 A 1536 MT20 EX¢ O2Z004MT WRITE BINARY RECORD ws BIC : 
_ O17134 Oe Be ee ES eRe aN ee ERNE ore ONE | 
017135 OL7106 A | . at on oo ne “Cage aN: 7 , 
017136 005000 A 1538 Nor = 
fe _O17137 001000 4 1539 MP ray ware unten Reapy pe en epg astnte Mam takes coats: ono haa Alaa 
= 017140 017134 A 
im 1540 * 
ae a 
, ‘saz <a — 


017141 000000 A 1543 BADR DATA 0- “ sre ADDR: TF USED) OTHERWISE 0 of 
scsiht TANS “DLTUGR A, ASAE, BUDA iO OAYA AO MERR ee acces ee cn eh teed wee eee 
017143 1545 DA ass 1 TEMP DA 
017144 1546 CNTR BSS 1 
M 


~ O17146 SMB MTBF B88 Gh MAG TAPE 37/0 SUFFER 
— 017246 «44849 XTRA) B88 ts—~—S—:CX RAW To DETECT BIG REC W/BIC 
FS pen Ete NS et ee ea Re ta ri ee 
1551 * DRIVE/CONT TABLE 
017247 000110 A 15S2 UTBL DATA 0410,0111,0112,0113 


eee ne» re ae ees emma ee ern mnerrintn oneameneanemaieiR 


047251 000112 A. 
047252 000113 A 


| 4 
| 017254 000211 A 
| 017255 000212 A 


S57 OOO310 A 15% 
000811 


tt te ot tt At te NTE, A ee center tentn Aames rere nto Ms eta An ARR I 4 nt tam 


017262 000313 
017263 000440 


1555 DATA 0410,0411,0412,0413 


265 000412 AO 


3 ee MAG TAPE DEVICE ADD TA 
1557 MTL DATA MT01eMT02,MT03,MTO4,MTOS,MTO6,MTOT 
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